- Class_DBDataSet.Designer.vb
- project /
1 '------------------------------------------------------------------------------
2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:4.0.30319.34209
5 '
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
8 ' </auto-generated>
9 '------------------------------------------------------------------------------
10
11 Option Strict Off
12 Option Explicit On
13
14
15
16 '''<summary>
17 '''Represents a strongly typed in-memory cache of data.
18 '''</summary>
19 <Global.System.Serializable(), _
20 Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21 Global.System.ComponentModel.ToolboxItem(true), _
22 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
23 Global.System.Xml.Serialization.XmlRootAttribute("Class_DBDataSet"), _
24 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
25 Partial Public Class Class_DBDataSet
26 Inherits Global.System.Data.DataSet
27
28 Private tableClass As ClassDataTable
29
30 Private tableCourseFee As CourseFeeDataTable
31
32 Private tableCourseFeePayment As CourseFeePaymentDataTable
33
34 Private tableSchoolInfo As SchoolInfoDataTable
35
36 Private tableStudent As StudentDataTable
37
38 Private relationFK_CourseFee_CourseFeePayment As Global.System.Data.DataRelation
39
40 Private relationFK_CourseFee_CourseFee As Global.System.Data.DataRelation
41
42 Private relationFK_CourseFee_SchoolInfo As Global.System.Data.DataRelation
43
44 Private relationFK_CourseFeePayment_Student As Global.System.Data.DataRelation
45
46 Private relationFK_Student_SchoolInfo As Global.System.Data.DataRelation
47
48 Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
49
50 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
51 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
52 Public Sub New()
53 MyBase.New
54 Me.BeginInit
55 Me.InitClass
56 Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
57 AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
58 AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
59 Me.EndInit
60 End Sub
61
62 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
63 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
64 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
65 MyBase.New(info, context, false)
66 If (Me.IsBinarySerialized(info, context) = true) Then
67 Me.InitVars(false)
68 Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
69 AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
70 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
71 Return
72 End If
73 Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
74 If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
75 Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
76 ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
77 If (Not (ds.Tables("Class")) Is Nothing) Then
78 MyBase.Tables.Add(New ClassDataTable(ds.Tables("Class")))
79 End If
80 If (Not (ds.Tables("CourseFee")) Is Nothing) Then
81 MyBase.Tables.Add(New CourseFeeDataTable(ds.Tables("CourseFee")))
82 End If
83 If (Not (ds.Tables("CourseFeePayment")) Is Nothing) Then
84 MyBase.Tables.Add(New CourseFeePaymentDataTable(ds.Tables("CourseFeePayment")))
85 End If
86 If (Not (ds.Tables("SchoolInfo")) Is Nothing) Then
87 MyBase.Tables.Add(New SchoolInfoDataTable(ds.Tables("SchoolInfo")))
88 End If
89 If (Not (ds.Tables("Student")) Is Nothing) Then
90 MyBase.Tables.Add(New StudentDataTable(ds.Tables("Student")))
91 End If
92 Me.DataSetName = ds.DataSetName
93 Me.Prefix = ds.Prefix
94 Me.Namespace = ds.Namespace
95 Me.Locale = ds.Locale
96 Me.CaseSensitive = ds.CaseSensitive
97 Me.EnforceConstraints = ds.EnforceConstraints
98 Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
99 Me.InitVars
100 Else
101 Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
102 End If
103 Me.GetSerializationData(info, context)
104 Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
105 AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
106 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
107 End Sub
108
109 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
110 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
111 Global.System.ComponentModel.Browsable(false), _
112 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
113 Public ReadOnly Property _Class() As ClassDataTable
114 Get
115 Return Me.tableClass
116 End Get
117 End Property
118
119 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
120 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
121 Global.System.ComponentModel.Browsable(false), _
122 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
123 Public ReadOnly Property CourseFee() As CourseFeeDataTable
124 Get
125 Return Me.tableCourseFee
126 End Get
127 End Property
128
129 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
130 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
131 Global.System.ComponentModel.Browsable(false), _
132 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
133 Public ReadOnly Property CourseFeePayment() As CourseFeePaymentDataTable
134 Get
135 Return Me.tableCourseFeePayment
136 End Get
137 End Property
138
139 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
140 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
141 Global.System.ComponentModel.Browsable(false), _
142 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
143 Public ReadOnly Property SchoolInfo() As SchoolInfoDataTable
144 Get
145 Return Me.tableSchoolInfo
146 End Get
147 End Property
148
149 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
150 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
151 Global.System.ComponentModel.Browsable(false), _
152 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
153 Public ReadOnly Property Student() As StudentDataTable
154 Get
155 Return Me.tableStudent
156 End Get
157 End Property
158
159 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
160 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
161 Global.System.ComponentModel.BrowsableAttribute(true), _
162 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
163 Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
164 Get
165 Return Me._schemaSerializationMode
166 End Get
167 Set
168 Me._schemaSerializationMode = value
169 End Set
170 End Property
171
172 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
173 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
174 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
175 Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
176 Get
177 Return MyBase.Tables
178 End Get
179 End Property
180
181 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
182 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
183 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
184 Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
185 Get
186 Return MyBase.Relations
187 End Get
188 End Property
189
190 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
191 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
192 Protected Overrides Sub InitializeDerivedDataSet()
193 Me.BeginInit
194 Me.InitClass
195 Me.EndInit
196 End Sub
197
198 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
199 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
200 Public Overrides Function Clone() As Global.System.Data.DataSet
201 Dim cln As Class_DBDataSet = CType(MyBase.Clone,Class_DBDataSet)
202 cln.InitVars
203 cln.SchemaSerializationMode = Me.SchemaSerializationMode
204 Return cln
205 End Function
206
207 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
208 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
209 Protected Overrides Function ShouldSerializeTables() As Boolean
210 Return false
211 End Function
212
213 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
214 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
215 Protected Overrides Function ShouldSerializeRelations() As Boolean
216 Return false
217 End Function
218
219 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
220 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
221 Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
222 If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
223 Me.Reset
224 Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
225 ds.ReadXml(reader)
226 If (Not (ds.Tables("Class")) Is Nothing) Then
227 MyBase.Tables.Add(New ClassDataTable(ds.Tables("Class")))
228 End If
229 If (Not (ds.Tables("CourseFee")) Is Nothing) Then
230 MyBase.Tables.Add(New CourseFeeDataTable(ds.Tables("CourseFee")))
231 End If
232 If (Not (ds.Tables("CourseFeePayment")) Is Nothing) Then
233 MyBase.Tables.Add(New CourseFeePaymentDataTable(ds.Tables("CourseFeePayment")))
234 End If
235 If (Not (ds.Tables("SchoolInfo")) Is Nothing) Then
236 MyBase.Tables.Add(New SchoolInfoDataTable(ds.Tables("SchoolInfo")))
237 End If
238 If (Not (ds.Tables("Student")) Is Nothing) Then
239 MyBase.Tables.Add(New StudentDataTable(ds.Tables("Student")))
240 End If
241 Me.DataSetName = ds.DataSetName
242 Me.Prefix = ds.Prefix
243 Me.Namespace = ds.Namespace
244 Me.Locale = ds.Locale
245 Me.CaseSensitive = ds.CaseSensitive
246 Me.EnforceConstraints = ds.EnforceConstraints
247 Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
248 Me.InitVars
249 Else
250 Me.ReadXml(reader)
251 Me.InitVars
252 End If
253 End Sub
254
255 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
256 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
257 Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
258 Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
259 Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
260 stream.Position = 0
261 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
262 End Function
263
264 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
265 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
266 Friend Overloads Sub InitVars()
267 Me.InitVars(true)
268 End Sub
269
270 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
271 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
272 Friend Overloads Sub InitVars(ByVal initTable As Boolean)
273 Me.tableClass = CType(MyBase.Tables("Class"),ClassDataTable)
274 If (initTable = true) Then
275 If (Not (Me.tableClass) Is Nothing) Then
276 Me.tableClass.InitVars
277 End If
278 End If
279 Me.tableCourseFee = CType(MyBase.Tables("CourseFee"),CourseFeeDataTable)
280 If (initTable = true) Then
281 If (Not (Me.tableCourseFee) Is Nothing) Then
282 Me.tableCourseFee.InitVars
283 End If
284 End If
285 Me.tableCourseFeePayment = CType(MyBase.Tables("CourseFeePayment"),CourseFeePaymentDataTable)
286 If (initTable = true) Then
287 If (Not (Me.tableCourseFeePayment) Is Nothing) Then
288 Me.tableCourseFeePayment.InitVars
289 End If
290 End If
291 Me.tableSchoolInfo = CType(MyBase.Tables("SchoolInfo"),SchoolInfoDataTable)
292 If (initTable = true) Then
293 If (Not (Me.tableSchoolInfo) Is Nothing) Then
294 Me.tableSchoolInfo.InitVars
295 End If
296 End If
297 Me.tableStudent = CType(MyBase.Tables("Student"),StudentDataTable)
298 If (initTable = true) Then
299 If (Not (Me.tableStudent) Is Nothing) Then
300 Me.tableStudent.InitVars
301 End If
302 End If
303 Me.relationFK_CourseFee_CourseFeePayment = Me.Relations("FK_CourseFee_CourseFeePayment")
304 Me.relationFK_CourseFee_CourseFee = Me.Relations("FK_CourseFee_CourseFee")
305 Me.relationFK_CourseFee_SchoolInfo = Me.Relations("FK_CourseFee_SchoolInfo")
306 Me.relationFK_CourseFeePayment_Student = Me.Relations("FK_CourseFeePayment_Student")
307 Me.relationFK_Student_SchoolInfo = Me.Relations("FK_Student_SchoolInfo")
308 End Sub
309
310 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
311 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
312 Private Sub InitClass()
313 Me.DataSetName = "Class_DBDataSet"
314 Me.Prefix = ""
315 Me.Namespace = "http://tempuri.org/Class_DBDataSet.xsd"
316 Me.EnforceConstraints = true
317 Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
318 Me.tableClass = New ClassDataTable()
319 MyBase.Tables.Add(Me.tableClass)
320 Me.tableCourseFee = New CourseFeeDataTable()
321 MyBase.Tables.Add(Me.tableCourseFee)
322 Me.tableCourseFeePayment = New CourseFeePaymentDataTable()
323 MyBase.Tables.Add(Me.tableCourseFeePayment)
324 Me.tableSchoolInfo = New SchoolInfoDataTable()
325 MyBase.Tables.Add(Me.tableSchoolInfo)
326 Me.tableStudent = New StudentDataTable()
327 MyBase.Tables.Add(Me.tableStudent)
328 Dim fkc As Global.System.Data.ForeignKeyConstraint
329 fkc = New Global.System.Data.ForeignKeyConstraint("FK_CourseFee_CourseFeePayment", New Global.System.Data.DataColumn() {Me.tableCourseFee.SemesterColumn}, New Global.System.Data.DataColumn() {Me.tableCourseFeePayment.SemesterColumn})
330 Me.tableCourseFeePayment.Constraints.Add(fkc)
331 fkc.AcceptRejectRule = Global.System.Data.AcceptRejectRule.None
332 fkc.DeleteRule = Global.System.Data.Rule.None
333 fkc.UpdateRule = Global.System.Data.Rule.None
334 Me.relationFK_CourseFee_CourseFeePayment = New Global.System.Data.DataRelation("FK_CourseFee_CourseFeePayment", New Global.System.Data.DataColumn() {Me.tableCourseFee.SemesterColumn}, New Global.System.Data.DataColumn() {Me.tableCourseFeePayment.SemesterColumn}, false)
335 Me.Relations.Add(Me.relationFK_CourseFee_CourseFeePayment)
336 Me.relationFK_CourseFee_CourseFee = New Global.System.Data.DataRelation("FK_CourseFee_CourseFee", New Global.System.Data.DataColumn() {Me.tableClass.ClassNameColumn}, New Global.System.Data.DataColumn() {Me.tableCourseFee.ClassColumn}, false)
337 Me.Relations.Add(Me.relationFK_CourseFee_CourseFee)
338 Me.relationFK_CourseFee_SchoolInfo = New Global.System.Data.DataRelation("FK_CourseFee_SchoolInfo", New Global.System.Data.DataColumn() {Me.tableSchoolInfo.S_IdColumn}, New Global.System.Data.DataColumn() {Me.tableCourseFee.SchoolIDColumn}, false)
339 Me.Relations.Add(Me.relationFK_CourseFee_SchoolInfo)
340 Me.relationFK_CourseFeePayment_Student = New Global.System.Data.DataRelation("FK_CourseFeePayment_Student", New Global.System.Data.DataColumn() {Me.tableStudent.AdmissionNoColumn}, New Global.System.Data.DataColumn() {Me.tableCourseFeePayment.AdmissionNoColumn}, false)
341 Me.Relations.Add(Me.relationFK_CourseFeePayment_Student)
342 Me.relationFK_Student_SchoolInfo = New Global.System.Data.DataRelation("FK_Student_SchoolInfo", New Global.System.Data.DataColumn() {Me.tableSchoolInfo.S_IdColumn}, New Global.System.Data.DataColumn() {Me.tableStudent.SchoolIDColumn}, false)
343 Me.Relations.Add(Me.relationFK_Student_SchoolInfo)
344 End Sub
345
346 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
347 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
348 Private Function ShouldSerialize_Class() As Boolean
349 Return false
350 End Function
351
352 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
353 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
354 Private Function ShouldSerializeCourseFee() As Boolean
355 Return false
356 End Function
357
358 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
359 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
360 Private Function ShouldSerializeCourseFeePayment() As Boolean
361 Return false
362 End Function
363
364 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
365 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
366 Private Function ShouldSerializeSchoolInfo() As Boolean
367 Return false
368 End Function
369
370 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
371 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
372 Private Function ShouldSerializeStudent() As Boolean
373 Return false
374 End Function
375
376 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
377 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
378 Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
379 If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
380 Me.InitVars
381 End If
382 End Sub
383
384 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
385 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
386 Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
387 Dim ds As Class_DBDataSet = New Class_DBDataSet()
388 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
389 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
390 Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
391 any.Namespace = ds.Namespace
392 sequence.Items.Add(any)
393 type.Particle = sequence
394 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
395 If xs.Contains(dsSchema.TargetNamespace) Then
396 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
397 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
398 Try
399 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
400 dsSchema.Write(s1)
401 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
402 Do While schemas.MoveNext
403 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
404 s2.SetLength(0)
405 schema.Write(s2)
406 If (s1.Length = s2.Length) Then
407 s1.Position = 0
408 s2.Position = 0
409
410 Do While ((s1.Position <> s1.Length) _
411 AndAlso (s1.ReadByte = s2.ReadByte))
412
413
414 Loop
415 If (s1.Position = s1.Length) Then
416 Return type
417 End If
418 End If
419
420 Loop
421 Finally
422 If (Not (s1) Is Nothing) Then
423 s1.Close
424 End If
425 If (Not (s2) Is Nothing) Then
426 s2.Close
427 End If
428 End Try
429 End If
430 xs.Add(dsSchema)
431 Return type
432 End Function
433
434 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
435 Public Delegate Sub ClassRowChangeEventHandler(ByVal sender As Object, ByVal e As ClassRowChangeEvent)
436
437 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
438 Public Delegate Sub CourseFeeRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseFeeRowChangeEvent)
439
440 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
441 Public Delegate Sub CourseFeePaymentRowChangeEventHandler(ByVal sender As Object, ByVal e As CourseFeePaymentRowChangeEvent)
442
443 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
444 Public Delegate Sub SchoolInfoRowChangeEventHandler(ByVal sender As Object, ByVal e As SchoolInfoRowChangeEvent)
445
446 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
447 Public Delegate Sub StudentRowChangeEventHandler(ByVal sender As Object, ByVal e As StudentRowChangeEvent)
448
449 '''<summary>
450 '''Represents the strongly named DataTable class.
451 '''</summary>
452 <Global.System.Serializable(), _
453 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
454 Partial Public Class ClassDataTable
455 Inherits Global.System.Data.TypedTableBase(Of ClassRow)
456
457 Private columnClassName As Global.System.Data.DataColumn
458
459 Private columnClassType As Global.System.Data.DataColumn
460
461 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
462 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
463 Public Sub New()
464 MyBase.New
465 Me.TableName = "Class"
466 Me.BeginInit
467 Me.InitClass
468 Me.EndInit
469 End Sub
470
471 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
472 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
473 Friend Sub New(ByVal table As Global.System.Data.DataTable)
474 MyBase.New
475 Me.TableName = table.TableName
476 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
477 Me.CaseSensitive = table.CaseSensitive
478 End If
479 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
480 Me.Locale = table.Locale
481 End If
482 If (table.Namespace <> table.DataSet.Namespace) Then
483 Me.Namespace = table.Namespace
484 End If
485 Me.Prefix = table.Prefix
486 Me.MinimumCapacity = table.MinimumCapacity
487 End Sub
488
489 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
490 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
491 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
492 MyBase.New(info, context)
493 Me.InitVars
494 End Sub
495
496 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
497 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
498 Public ReadOnly Property ClassNameColumn() As Global.System.Data.DataColumn
499 Get
500 Return Me.columnClassName
501 End Get
502 End Property
503
504 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
505 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
506 Public ReadOnly Property ClassTypeColumn() As Global.System.Data.DataColumn
507 Get
508 Return Me.columnClassType
509 End Get
510 End Property
511
512 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
513 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
514 Global.System.ComponentModel.Browsable(false)> _
515 Public ReadOnly Property Count() As Integer
516 Get
517 Return Me.Rows.Count
518 End Get
519 End Property
520
521 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
522 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
523 Public Default ReadOnly Property Item(ByVal index As Integer) As ClassRow
524 Get
525 Return CType(Me.Rows(index),ClassRow)
526 End Get
527 End Property
528
529 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
530 Public Event ClassRowChanging As ClassRowChangeEventHandler
531
532 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
533 Public Event ClassRowChanged As ClassRowChangeEventHandler
534
535 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
536 Public Event ClassRowDeleting As ClassRowChangeEventHandler
537
538 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
539 Public Event ClassRowDeleted As ClassRowChangeEventHandler
540
541 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
542 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
543 Public Overloads Sub AddClassRow(ByVal row As ClassRow)
544 Me.Rows.Add(row)
545 End Sub
546
547 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
548 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
549 Public Overloads Function AddClassRow(ByVal ClassName As String, ByVal ClassType As String) As ClassRow
550 Dim rowClassRow As ClassRow = CType(Me.NewRow,ClassRow)
551 Dim columnValuesArray() As Object = New Object() {ClassName, ClassType}
552 rowClassRow.ItemArray = columnValuesArray
553 Me.Rows.Add(rowClassRow)
554 Return rowClassRow
555 End Function
556
557 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
558 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
559 Public Function FindByClassName(ByVal ClassName As String) As ClassRow
560 Return CType(Me.Rows.Find(New Object() {ClassName}),ClassRow)
561 End Function
562
563 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
564 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
565 Public Overrides Function Clone() As Global.System.Data.DataTable
566 Dim cln As ClassDataTable = CType(MyBase.Clone,ClassDataTable)
567 cln.InitVars
568 Return cln
569 End Function
570
571 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
572 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
573 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
574 Return New ClassDataTable()
575 End Function
576
577 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
578 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
579 Friend Sub InitVars()
580 Me.columnClassName = MyBase.Columns("ClassName")
581 Me.columnClassType = MyBase.Columns("ClassType")
582 End Sub
583
584 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
585 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
586 Private Sub InitClass()
587 Me.columnClassName = New Global.System.Data.DataColumn("ClassName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
588 MyBase.Columns.Add(Me.columnClassName)
589 Me.columnClassType = New Global.System.Data.DataColumn("ClassType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
590 MyBase.Columns.Add(Me.columnClassType)
591 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnClassName}, true))
592 Me.columnClassName.AllowDBNull = false
593 Me.columnClassName.Unique = true
594 Me.columnClassName.MaxLength = 100
595 Me.columnClassType.AllowDBNull = false
596 Me.columnClassType.MaxLength = 150
597 Me.ExtendedProperties.Add("Generator_RowClassName", "ClassRow")
598 Me.ExtendedProperties.Add("Generator_RowEvArgName", "ClassRowChangeEvent")
599 Me.ExtendedProperties.Add("Generator_RowEvHandlerName", "ClassRowChangeEventHandler")
600 Me.ExtendedProperties.Add("Generator_TableClassName", "ClassDataTable")
601 Me.ExtendedProperties.Add("Generator_TableVarName", "tableClass")
602 Me.ExtendedProperties.Add("Generator_UserTableName", "Class")
603 End Sub
604
605 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
606 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
607 Public Function NewClassRow() As ClassRow
608 Return CType(Me.NewRow,ClassRow)
609 End Function
610
611 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
612 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
613 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
614 Return New ClassRow(builder)
615 End Function
616
617 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
618 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
619 Protected Overrides Function GetRowType() As Global.System.Type
620 Return GetType(ClassRow)
621 End Function
622
623 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
624 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
625 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
626 MyBase.OnRowChanged(e)
627 If (Not (Me.ClassRowChangedEvent) Is Nothing) Then
628 RaiseEvent ClassRowChanged(Me, New ClassRowChangeEvent(CType(e.Row,ClassRow), e.Action))
629 End If
630 End Sub
631
632 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
633 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
634 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
635 MyBase.OnRowChanging(e)
636 If (Not (Me.ClassRowChangingEvent) Is Nothing) Then
637 RaiseEvent ClassRowChanging(Me, New ClassRowChangeEvent(CType(e.Row,ClassRow), e.Action))
638 End If
639 End Sub
640
641 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
642 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
643 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
644 MyBase.OnRowDeleted(e)
645 If (Not (Me.ClassRowDeletedEvent) Is Nothing) Then
646 RaiseEvent ClassRowDeleted(Me, New ClassRowChangeEvent(CType(e.Row,ClassRow), e.Action))
647 End If
648 End Sub
649
650 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
651 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
652 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
653 MyBase.OnRowDeleting(e)
654 If (Not (Me.ClassRowDeletingEvent) Is Nothing) Then
655 RaiseEvent ClassRowDeleting(Me, New ClassRowChangeEvent(CType(e.Row,ClassRow), e.Action))
656 End If
657 End Sub
658
659 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
660 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
661 Public Sub RemoveClassRow(ByVal row As ClassRow)
662 Me.Rows.Remove(row)
663 End Sub
664
665 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
666 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
667 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
668 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
669 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
670 Dim ds As Class_DBDataSet = New Class_DBDataSet()
671 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
672 any1.Namespace = "http://www.w3.org/2001/XMLSchema"
673 any1.MinOccurs = New Decimal(0)
674 any1.MaxOccurs = Decimal.MaxValue
675 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
676 sequence.Items.Add(any1)
677 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
678 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
679 any2.MinOccurs = New Decimal(1)
680 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
681 sequence.Items.Add(any2)
682 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
683 attribute1.Name = "namespace"
684 attribute1.FixedValue = ds.Namespace
685 type.Attributes.Add(attribute1)
686 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
687 attribute2.Name = "tableTypeName"
688 attribute2.FixedValue = "ClassDataTable"
689 type.Attributes.Add(attribute2)
690 type.Particle = sequence
691 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
692 If xs.Contains(dsSchema.TargetNamespace) Then
693 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
694 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
695 Try
696 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
697 dsSchema.Write(s1)
698 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
699 Do While schemas.MoveNext
700 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
701 s2.SetLength(0)
702 schema.Write(s2)
703 If (s1.Length = s2.Length) Then
704 s1.Position = 0
705 s2.Position = 0
706
707 Do While ((s1.Position <> s1.Length) _
708 AndAlso (s1.ReadByte = s2.ReadByte))
709
710
711 Loop
712 If (s1.Position = s1.Length) Then
713 Return type
714 End If
715 End If
716
717 Loop
718 Finally
719 If (Not (s1) Is Nothing) Then
720 s1.Close
721 End If
722 If (Not (s2) Is Nothing) Then
723 s2.Close
724 End If
725 End Try
726 End If
727 xs.Add(dsSchema)
728 Return type
729 End Function
730 End Class
731
732 '''<summary>
733 '''Represents the strongly named DataTable class.
734 '''</summary>
735 <Global.System.Serializable(), _
736 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
737 Partial Public Class CourseFeeDataTable
738 Inherits Global.System.Data.TypedTableBase(Of CourseFeeRow)
739
740 Private columnC_ID As Global.System.Data.DataColumn
741
742 Private columnSchoolID As Global.System.Data.DataColumn
743
744 Private columnClass As Global.System.Data.DataColumn
745
746 Private columnFeeName As Global.System.Data.DataColumn
747
748 Private columnSemester As Global.System.Data.DataColumn
749
750 Private columnFee As Global.System.Data.DataColumn
751
752 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
753 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
754 Public Sub New()
755 MyBase.New
756 Me.TableName = "CourseFee"
757 Me.BeginInit
758 Me.InitClass
759 Me.EndInit
760 End Sub
761
762 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
763 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
764 Friend Sub New(ByVal table As Global.System.Data.DataTable)
765 MyBase.New
766 Me.TableName = table.TableName
767 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
768 Me.CaseSensitive = table.CaseSensitive
769 End If
770 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
771 Me.Locale = table.Locale
772 End If
773 If (table.Namespace <> table.DataSet.Namespace) Then
774 Me.Namespace = table.Namespace
775 End If
776 Me.Prefix = table.Prefix
777 Me.MinimumCapacity = table.MinimumCapacity
778 End Sub
779
780 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
781 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
782 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
783 MyBase.New(info, context)
784 Me.InitVars
785 End Sub
786
787 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
788 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
789 Public ReadOnly Property C_IDColumn() As Global.System.Data.DataColumn
790 Get
791 Return Me.columnC_ID
792 End Get
793 End Property
794
795 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
796 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
797 Public ReadOnly Property SchoolIDColumn() As Global.System.Data.DataColumn
798 Get
799 Return Me.columnSchoolID
800 End Get
801 End Property
802
803 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
804 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
805 Public ReadOnly Property ClassColumn() As Global.System.Data.DataColumn
806 Get
807 Return Me.columnClass
808 End Get
809 End Property
810
811 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
812 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
813 Public ReadOnly Property FeeNameColumn() As Global.System.Data.DataColumn
814 Get
815 Return Me.columnFeeName
816 End Get
817 End Property
818
819 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
820 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
821 Public ReadOnly Property SemesterColumn() As Global.System.Data.DataColumn
822 Get
823 Return Me.columnSemester
824 End Get
825 End Property
826
827 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
828 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
829 Public ReadOnly Property FeeColumn() As Global.System.Data.DataColumn
830 Get
831 Return Me.columnFee
832 End Get
833 End Property
834
835 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
836 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
837 Global.System.ComponentModel.Browsable(false)> _
838 Public ReadOnly Property Count() As Integer
839 Get
840 Return Me.Rows.Count
841 End Get
842 End Property
843
844 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
845 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
846 Public Default ReadOnly Property Item(ByVal index As Integer) As CourseFeeRow
847 Get
848 Return CType(Me.Rows(index),CourseFeeRow)
849 End Get
850 End Property
851
852 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
853 Public Event CourseFeeRowChanging As CourseFeeRowChangeEventHandler
854
855 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
856 Public Event CourseFeeRowChanged As CourseFeeRowChangeEventHandler
857
858 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
859 Public Event CourseFeeRowDeleting As CourseFeeRowChangeEventHandler
860
861 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
862 Public Event CourseFeeRowDeleted As CourseFeeRowChangeEventHandler
863
864 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
865 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
866 Public Overloads Sub AddCourseFeeRow(ByVal row As CourseFeeRow)
867 Me.Rows.Add(row)
868 End Sub
869
870 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
871 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
872 Public Overloads Function AddCourseFeeRow(ByVal C_ID As Integer, ByVal parentSchoolInfoRowByFK_CourseFee_SchoolInfo As SchoolInfoRow, ByVal parentClassRowByFK_CourseFee_CourseFee As ClassRow, ByVal FeeName As String, ByVal Semester As String, ByVal Fee As Decimal) As CourseFeeRow
873 Dim rowCourseFeeRow As CourseFeeRow = CType(Me.NewRow,CourseFeeRow)
874 Dim columnValuesArray() As Object = New Object() {C_ID, Nothing, Nothing, FeeName, Semester, Fee}
875 If (Not (parentSchoolInfoRowByFK_CourseFee_SchoolInfo) Is Nothing) Then
876 columnValuesArray(1) = parentSchoolInfoRowByFK_CourseFee_SchoolInfo(0)
877 End If
878 If (Not (parentClassRowByFK_CourseFee_CourseFee) Is Nothing) Then
879 columnValuesArray(2) = parentClassRowByFK_CourseFee_CourseFee(0)
880 End If
881 rowCourseFeeRow.ItemArray = columnValuesArray
882 Me.Rows.Add(rowCourseFeeRow)
883 Return rowCourseFeeRow
884 End Function
885
886 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
887 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
888 Public Function FindByC_ID(ByVal C_ID As Integer) As CourseFeeRow
889 Return CType(Me.Rows.Find(New Object() {C_ID}),CourseFeeRow)
890 End Function
891
892 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
893 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
894 Public Overrides Function Clone() As Global.System.Data.DataTable
895 Dim cln As CourseFeeDataTable = CType(MyBase.Clone,CourseFeeDataTable)
896 cln.InitVars
897 Return cln
898 End Function
899
900 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
901 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
902 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
903 Return New CourseFeeDataTable()
904 End Function
905
906 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
907 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
908 Friend Sub InitVars()
909 Me.columnC_ID = MyBase.Columns("C_ID")
910 Me.columnSchoolID = MyBase.Columns("SchoolID")
911 Me.columnClass = MyBase.Columns("Class")
912 Me.columnFeeName = MyBase.Columns("FeeName")
913 Me.columnSemester = MyBase.Columns("Semester")
914 Me.columnFee = MyBase.Columns("Fee")
915 End Sub
916
917 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
918 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
919 Private Sub InitClass()
920 Me.columnC_ID = New Global.System.Data.DataColumn("C_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
921 MyBase.Columns.Add(Me.columnC_ID)
922 Me.columnSchoolID = New Global.System.Data.DataColumn("SchoolID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
923 MyBase.Columns.Add(Me.columnSchoolID)
924 Me.columnClass = New Global.System.Data.DataColumn("Class", GetType(String), Nothing, Global.System.Data.MappingType.Element)
925 Me.columnClass.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ClassColumn")
926 Me.columnClass.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnClass")
927 Me.columnClass.ExtendedProperties.Add("Generator_UserColumnName", "Class")
928 MyBase.Columns.Add(Me.columnClass)
929 Me.columnFeeName = New Global.System.Data.DataColumn("FeeName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
930 MyBase.Columns.Add(Me.columnFeeName)
931 Me.columnSemester = New Global.System.Data.DataColumn("Semester", GetType(String), Nothing, Global.System.Data.MappingType.Element)
932 MyBase.Columns.Add(Me.columnSemester)
933 Me.columnFee = New Global.System.Data.DataColumn("Fee", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
934 MyBase.Columns.Add(Me.columnFee)
935 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnC_ID}, true))
936 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnSemester}, false))
937 Me.columnC_ID.AllowDBNull = false
938 Me.columnC_ID.Unique = true
939 Me.columnSchoolID.AllowDBNull = false
940 Me.columnClass.AllowDBNull = false
941 Me.columnClass.MaxLength = 100
942 Me.columnFeeName.AllowDBNull = false
943 Me.columnFeeName.MaxLength = 250
944 Me.columnSemester.AllowDBNull = false
945 Me.columnSemester.Unique = true
946 Me.columnSemester.MaxLength = 30
947 Me.columnFee.AllowDBNull = false
948 End Sub
949
950 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
951 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
952 Public Function NewCourseFeeRow() As CourseFeeRow
953 Return CType(Me.NewRow,CourseFeeRow)
954 End Function
955
956 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
957 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
958 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
959 Return New CourseFeeRow(builder)
960 End Function
961
962 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
963 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
964 Protected Overrides Function GetRowType() As Global.System.Type
965 Return GetType(CourseFeeRow)
966 End Function
967
968 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
969 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
970 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
971 MyBase.OnRowChanged(e)
972 If (Not (Me.CourseFeeRowChangedEvent) Is Nothing) Then
973 RaiseEvent CourseFeeRowChanged(Me, New CourseFeeRowChangeEvent(CType(e.Row,CourseFeeRow), e.Action))
974 End If
975 End Sub
976
977 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
978 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
979 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
980 MyBase.OnRowChanging(e)
981 If (Not (Me.CourseFeeRowChangingEvent) Is Nothing) Then
982 RaiseEvent CourseFeeRowChanging(Me, New CourseFeeRowChangeEvent(CType(e.Row,CourseFeeRow), e.Action))
983 End If
984 End Sub
985
986 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
987 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
988 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
989 MyBase.OnRowDeleted(e)
990 If (Not (Me.CourseFeeRowDeletedEvent) Is Nothing) Then
991 RaiseEvent CourseFeeRowDeleted(Me, New CourseFeeRowChangeEvent(CType(e.Row,CourseFeeRow), e.Action))
992 End If
993 End Sub
994
995 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
996 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
997 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
998 MyBase.OnRowDeleting(e)
999 If (Not (Me.CourseFeeRowDeletingEvent) Is Nothing) Then
1000 RaiseEvent CourseFeeRowDeleting(Me, New CourseFeeRowChangeEvent(CType(e.Row,CourseFeeRow), e.Action))
1001 End If
1002 End Sub
1003
1004 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1005 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1006 Public Sub RemoveCourseFeeRow(ByVal row As CourseFeeRow)
1007 Me.Rows.Remove(row)
1008 End Sub
1009
1010 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1011 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1012 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1013 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1014 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1015 Dim ds As Class_DBDataSet = New Class_DBDataSet()
1016 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1017 any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1018 any1.MinOccurs = New Decimal(0)
1019 any1.MaxOccurs = Decimal.MaxValue
1020 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1021 sequence.Items.Add(any1)
1022 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1023 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1024 any2.MinOccurs = New Decimal(1)
1025 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1026 sequence.Items.Add(any2)
1027 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1028 attribute1.Name = "namespace"
1029 attribute1.FixedValue = ds.Namespace
1030 type.Attributes.Add(attribute1)
1031 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1032 attribute2.Name = "tableTypeName"
1033 attribute2.FixedValue = "CourseFeeDataTable"
1034 type.Attributes.Add(attribute2)
1035 type.Particle = sequence
1036 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1037 If xs.Contains(dsSchema.TargetNamespace) Then
1038 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1039 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1040 Try
1041 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1042 dsSchema.Write(s1)
1043 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1044 Do While schemas.MoveNext
1045 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1046 s2.SetLength(0)
1047 schema.Write(s2)
1048 If (s1.Length = s2.Length) Then
1049 s1.Position = 0
1050 s2.Position = 0
1051
1052 Do While ((s1.Position <> s1.Length) _
1053 AndAlso (s1.ReadByte = s2.ReadByte))
1054
1055
1056 Loop
1057 If (s1.Position = s1.Length) Then
1058 Return type
1059 End If
1060 End If
1061
1062 Loop
1063 Finally
1064 If (Not (s1) Is Nothing) Then
1065 s1.Close
1066 End If
1067 If (Not (s2) Is Nothing) Then
1068 s2.Close
1069 End If
1070 End Try
1071 End If
1072 xs.Add(dsSchema)
1073 Return type
1074 End Function
1075 End Class
1076
1077 '''<summary>
1078 '''Represents the strongly named DataTable class.
1079 '''</summary>
1080 <Global.System.Serializable(), _
1081 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1082 Partial Public Class CourseFeePaymentDataTable
1083 Inherits Global.System.Data.TypedTableBase(Of CourseFeePaymentRow)
1084
1085 Private columnId As Global.System.Data.DataColumn
1086
1087 Private columnCFP_ID As Global.System.Data.DataColumn
1088
1089 Private columnPaymentID As Global.System.Data.DataColumn
1090
1091 Private columnAdmissionNo As Global.System.Data.DataColumn
1092
1093 Private columnSession As Global.System.Data.DataColumn
1094
1095 Private columnSemester As Global.System.Data.DataColumn
1096
1097 Private columnTotalFee As Global.System.Data.DataColumn
1098
1099 Private columnDiscountPer As Global.System.Data.DataColumn
1100
1101 Private columnDiscountAmt As Global.System.Data.DataColumn
1102
1103 Private columnPreviousDue As Global.System.Data.DataColumn
1104
1105 Private columnFine As Global.System.Data.DataColumn
1106
1107 Private columnGrandTotal As Global.System.Data.DataColumn
1108
1109 Private columnTotalPaid As Global.System.Data.DataColumn
1110
1111 Private columnModeOfPayment As Global.System.Data.DataColumn
1112
1113 Private columnPaymentModeDetails As Global.System.Data.DataColumn
1114
1115 Private columnPaymentDate As Global.System.Data.DataColumn
1116
1117 Private columnPaymentDue As Global.System.Data.DataColumn
1118
1119 Private columnClassType As Global.System.Data.DataColumn
1120
1121 Private columnSchoolType As Global.System.Data.DataColumn
1122
1123 Private columnClass As Global.System.Data.DataColumn
1124
1125 Private columnSection As Global.System.Data.DataColumn
1126
1127 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1128 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1129 Public Sub New()
1130 MyBase.New
1131 Me.TableName = "CourseFeePayment"
1132 Me.BeginInit
1133 Me.InitClass
1134 Me.EndInit
1135 End Sub
1136
1137 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1138 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1139 Friend Sub New(ByVal table As Global.System.Data.DataTable)
1140 MyBase.New
1141 Me.TableName = table.TableName
1142 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1143 Me.CaseSensitive = table.CaseSensitive
1144 End If
1145 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1146 Me.Locale = table.Locale
1147 End If
1148 If (table.Namespace <> table.DataSet.Namespace) Then
1149 Me.Namespace = table.Namespace
1150 End If
1151 Me.Prefix = table.Prefix
1152 Me.MinimumCapacity = table.MinimumCapacity
1153 End Sub
1154
1155 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1156 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1157 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1158 MyBase.New(info, context)
1159 Me.InitVars
1160 End Sub
1161
1162 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1163 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1164 Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
1165 Get
1166 Return Me.columnId
1167 End Get
1168 End Property
1169
1170 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1171 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1172 Public ReadOnly Property CFP_IDColumn() As Global.System.Data.DataColumn
1173 Get
1174 Return Me.columnCFP_ID
1175 End Get
1176 End Property
1177
1178 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1179 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1180 Public ReadOnly Property PaymentIDColumn() As Global.System.Data.DataColumn
1181 Get
1182 Return Me.columnPaymentID
1183 End Get
1184 End Property
1185
1186 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1187 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1188 Public ReadOnly Property AdmissionNoColumn() As Global.System.Data.DataColumn
1189 Get
1190 Return Me.columnAdmissionNo
1191 End Get
1192 End Property
1193
1194 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1195 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1196 Public ReadOnly Property SessionColumn() As Global.System.Data.DataColumn
1197 Get
1198 Return Me.columnSession
1199 End Get
1200 End Property
1201
1202 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1203 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1204 Public ReadOnly Property SemesterColumn() As Global.System.Data.DataColumn
1205 Get
1206 Return Me.columnSemester
1207 End Get
1208 End Property
1209
1210 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1211 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1212 Public ReadOnly Property TotalFeeColumn() As Global.System.Data.DataColumn
1213 Get
1214 Return Me.columnTotalFee
1215 End Get
1216 End Property
1217
1218 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1219 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1220 Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
1221 Get
1222 Return Me.columnDiscountPer
1223 End Get
1224 End Property
1225
1226 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1227 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1228 Public ReadOnly Property DiscountAmtColumn() As Global.System.Data.DataColumn
1229 Get
1230 Return Me.columnDiscountAmt
1231 End Get
1232 End Property
1233
1234 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1235 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1236 Public ReadOnly Property PreviousDueColumn() As Global.System.Data.DataColumn
1237 Get
1238 Return Me.columnPreviousDue
1239 End Get
1240 End Property
1241
1242 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1243 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1244 Public ReadOnly Property FineColumn() As Global.System.Data.DataColumn
1245 Get
1246 Return Me.columnFine
1247 End Get
1248 End Property
1249
1250 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1251 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1252 Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
1253 Get
1254 Return Me.columnGrandTotal
1255 End Get
1256 End Property
1257
1258 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1259 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1260 Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
1261 Get
1262 Return Me.columnTotalPaid
1263 End Get
1264 End Property
1265
1266 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1267 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1268 Public ReadOnly Property ModeOfPaymentColumn() As Global.System.Data.DataColumn
1269 Get
1270 Return Me.columnModeOfPayment
1271 End Get
1272 End Property
1273
1274 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1275 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1276 Public ReadOnly Property PaymentModeDetailsColumn() As Global.System.Data.DataColumn
1277 Get
1278 Return Me.columnPaymentModeDetails
1279 End Get
1280 End Property
1281
1282 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1283 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1284 Public ReadOnly Property PaymentDateColumn() As Global.System.Data.DataColumn
1285 Get
1286 Return Me.columnPaymentDate
1287 End Get
1288 End Property
1289
1290 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1291 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1292 Public ReadOnly Property PaymentDueColumn() As Global.System.Data.DataColumn
1293 Get
1294 Return Me.columnPaymentDue
1295 End Get
1296 End Property
1297
1298 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1299 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1300 Public ReadOnly Property ClassTypeColumn() As Global.System.Data.DataColumn
1301 Get
1302 Return Me.columnClassType
1303 End Get
1304 End Property
1305
1306 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1307 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1308 Public ReadOnly Property SchoolTypeColumn() As Global.System.Data.DataColumn
1309 Get
1310 Return Me.columnSchoolType
1311 End Get
1312 End Property
1313
1314 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1315 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1316 Public ReadOnly Property ClassColumn() As Global.System.Data.DataColumn
1317 Get
1318 Return Me.columnClass
1319 End Get
1320 End Property
1321
1322 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1323 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1324 Public ReadOnly Property SectionColumn() As Global.System.Data.DataColumn
1325 Get
1326 Return Me.columnSection
1327 End Get
1328 End Property
1329
1330 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1331 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1332 Global.System.ComponentModel.Browsable(false)> _
1333 Public ReadOnly Property Count() As Integer
1334 Get
1335 Return Me.Rows.Count
1336 End Get
1337 End Property
1338
1339 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1340 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1341 Public Default ReadOnly Property Item(ByVal index As Integer) As CourseFeePaymentRow
1342 Get
1343 Return CType(Me.Rows(index),CourseFeePaymentRow)
1344 End Get
1345 End Property
1346
1347 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1348 Public Event CourseFeePaymentRowChanging As CourseFeePaymentRowChangeEventHandler
1349
1350 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1351 Public Event CourseFeePaymentRowChanged As CourseFeePaymentRowChangeEventHandler
1352
1353 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1354 Public Event CourseFeePaymentRowDeleting As CourseFeePaymentRowChangeEventHandler
1355
1356 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1357 Public Event CourseFeePaymentRowDeleted As CourseFeePaymentRowChangeEventHandler
1358
1359 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1360 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1361 Public Overloads Sub AddCourseFeePaymentRow(ByVal row As CourseFeePaymentRow)
1362 Me.Rows.Add(row)
1363 End Sub
1364
1365 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1366 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1367 Public Overloads Function AddCourseFeePaymentRow( _
1368 ByVal CFP_ID As Integer, _
1369 ByVal PaymentID As String, _
1370 ByVal parentStudentRowByFK_CourseFeePayment_Student As StudentRow, _
1371 ByVal Session As String, _
1372 ByVal parentCourseFeeRowByFK_CourseFee_CourseFeePayment As CourseFeeRow, _
1373 ByVal TotalFee As Decimal, _
1374 ByVal DiscountPer As Decimal, _
1375 ByVal DiscountAmt As Decimal, _
1376 ByVal PreviousDue As Decimal, _
1377 ByVal Fine As Decimal, _
1378 ByVal GrandTotal As Decimal, _
1379 ByVal TotalPaid As Decimal, _
1380 ByVal ModeOfPayment As String, _
1381 ByVal PaymentModeDetails As String, _
1382 ByVal PaymentDate As Date, _
1383 ByVal PaymentDue As Decimal, _
1384 ByVal ClassType As String, _
1385 ByVal SchoolType As String, _
1386 ByVal _Class As String, _
1387 ByVal Section As String) As CourseFeePaymentRow
1388 Dim rowCourseFeePaymentRow As CourseFeePaymentRow = CType(Me.NewRow,CourseFeePaymentRow)
1389 Dim columnValuesArray() As Object = New Object() {Nothing, CFP_ID, PaymentID, Nothing, Session, Nothing, TotalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, _Class, Section}
1390 If (Not (parentStudentRowByFK_CourseFeePayment_Student) Is Nothing) Then
1391 columnValuesArray(3) = parentStudentRowByFK_CourseFeePayment_Student(0)
1392 End If
1393 If (Not (parentCourseFeeRowByFK_CourseFee_CourseFeePayment) Is Nothing) Then
1394 columnValuesArray(5) = parentCourseFeeRowByFK_CourseFee_CourseFeePayment(4)
1395 End If
1396 rowCourseFeePaymentRow.ItemArray = columnValuesArray
1397 Me.Rows.Add(rowCourseFeePaymentRow)
1398 Return rowCourseFeePaymentRow
1399 End Function
1400
1401 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1402 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1403 Public Function FindById(ByVal Id As Integer) As CourseFeePaymentRow
1404 Return CType(Me.Rows.Find(New Object() {Id}),CourseFeePaymentRow)
1405 End Function
1406
1407 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1408 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1409 Public Overrides Function Clone() As Global.System.Data.DataTable
1410 Dim cln As CourseFeePaymentDataTable = CType(MyBase.Clone,CourseFeePaymentDataTable)
1411 cln.InitVars
1412 Return cln
1413 End Function
1414
1415 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1416 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1417 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1418 Return New CourseFeePaymentDataTable()
1419 End Function
1420
1421 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1422 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1423 Friend Sub InitVars()
1424 Me.columnId = MyBase.Columns("Id")
1425 Me.columnCFP_ID = MyBase.Columns("CFP_ID")
1426 Me.columnPaymentID = MyBase.Columns("PaymentID")
1427 Me.columnAdmissionNo = MyBase.Columns("AdmissionNo")
1428 Me.columnSession = MyBase.Columns("Session")
1429 Me.columnSemester = MyBase.Columns("Semester")
1430 Me.columnTotalFee = MyBase.Columns("TotalFee")
1431 Me.columnDiscountPer = MyBase.Columns("DiscountPer")
1432 Me.columnDiscountAmt = MyBase.Columns("DiscountAmt")
1433 Me.columnPreviousDue = MyBase.Columns("PreviousDue")
1434 Me.columnFine = MyBase.Columns("Fine")
1435 Me.columnGrandTotal = MyBase.Columns("GrandTotal")
1436 Me.columnTotalPaid = MyBase.Columns("TotalPaid")
1437 Me.columnModeOfPayment = MyBase.Columns("ModeOfPayment")
1438 Me.columnPaymentModeDetails = MyBase.Columns("PaymentModeDetails")
1439 Me.columnPaymentDate = MyBase.Columns("PaymentDate")
1440 Me.columnPaymentDue = MyBase.Columns("PaymentDue")
1441 Me.columnClassType = MyBase.Columns("ClassType")
1442 Me.columnSchoolType = MyBase.Columns("SchoolType")
1443 Me.columnClass = MyBase.Columns("Class")
1444 Me.columnSection = MyBase.Columns("Section")
1445 End Sub
1446
1447 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1448 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1449 Private Sub InitClass()
1450 Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1451 MyBase.Columns.Add(Me.columnId)
1452 Me.columnCFP_ID = New Global.System.Data.DataColumn("CFP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1453 MyBase.Columns.Add(Me.columnCFP_ID)
1454 Me.columnPaymentID = New Global.System.Data.DataColumn("PaymentID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1455 MyBase.Columns.Add(Me.columnPaymentID)
1456 Me.columnAdmissionNo = New Global.System.Data.DataColumn("AdmissionNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1457 MyBase.Columns.Add(Me.columnAdmissionNo)
1458 Me.columnSession = New Global.System.Data.DataColumn("Session", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1459 MyBase.Columns.Add(Me.columnSession)
1460 Me.columnSemester = New Global.System.Data.DataColumn("Semester", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1461 MyBase.Columns.Add(Me.columnSemester)
1462 Me.columnTotalFee = New Global.System.Data.DataColumn("TotalFee", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1463 MyBase.Columns.Add(Me.columnTotalFee)
1464 Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1465 MyBase.Columns.Add(Me.columnDiscountPer)
1466 Me.columnDiscountAmt = New Global.System.Data.DataColumn("DiscountAmt", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1467 MyBase.Columns.Add(Me.columnDiscountAmt)
1468 Me.columnPreviousDue = New Global.System.Data.DataColumn("PreviousDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1469 MyBase.Columns.Add(Me.columnPreviousDue)
1470 Me.columnFine = New Global.System.Data.DataColumn("Fine", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1471 MyBase.Columns.Add(Me.columnFine)
1472 Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1473 MyBase.Columns.Add(Me.columnGrandTotal)
1474 Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1475 MyBase.Columns.Add(Me.columnTotalPaid)
1476 Me.columnModeOfPayment = New Global.System.Data.DataColumn("ModeOfPayment", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1477 MyBase.Columns.Add(Me.columnModeOfPayment)
1478 Me.columnPaymentModeDetails = New Global.System.Data.DataColumn("PaymentModeDetails", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1479 MyBase.Columns.Add(Me.columnPaymentModeDetails)
1480 Me.columnPaymentDate = New Global.System.Data.DataColumn("PaymentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
1481 MyBase.Columns.Add(Me.columnPaymentDate)
1482 Me.columnPaymentDue = New Global.System.Data.DataColumn("PaymentDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
1483 MyBase.Columns.Add(Me.columnPaymentDue)
1484 Me.columnClassType = New Global.System.Data.DataColumn("ClassType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1485 MyBase.Columns.Add(Me.columnClassType)
1486 Me.columnSchoolType = New Global.System.Data.DataColumn("SchoolType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1487 MyBase.Columns.Add(Me.columnSchoolType)
1488 Me.columnClass = New Global.System.Data.DataColumn("Class", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1489 Me.columnClass.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ClassColumn")
1490 Me.columnClass.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnClass")
1491 Me.columnClass.ExtendedProperties.Add("Generator_UserColumnName", "Class")
1492 MyBase.Columns.Add(Me.columnClass)
1493 Me.columnSection = New Global.System.Data.DataColumn("Section", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1494 MyBase.Columns.Add(Me.columnSection)
1495 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
1496 Me.columnId.AutoIncrement = true
1497 Me.columnId.AutoIncrementSeed = -1
1498 Me.columnId.AutoIncrementStep = -1
1499 Me.columnId.AllowDBNull = false
1500 Me.columnId.ReadOnly = true
1501 Me.columnId.Unique = true
1502 Me.columnCFP_ID.AllowDBNull = false
1503 Me.columnPaymentID.AllowDBNull = false
1504 Me.columnPaymentID.MaxLength = 30
1505 Me.columnAdmissionNo.AllowDBNull = false
1506 Me.columnAdmissionNo.MaxLength = 15
1507 Me.columnSession.AllowDBNull = false
1508 Me.columnSession.MaxLength = 15
1509 Me.columnSemester.AllowDBNull = false
1510 Me.columnSemester.MaxLength = 10
1511 Me.columnTotalFee.AllowDBNull = false
1512 Me.columnDiscountPer.AllowDBNull = false
1513 Me.columnDiscountAmt.AllowDBNull = false
1514 Me.columnPreviousDue.AllowDBNull = false
1515 Me.columnFine.AllowDBNull = false
1516 Me.columnGrandTotal.AllowDBNull = false
1517 Me.columnTotalPaid.AllowDBNull = false
1518 Me.columnModeOfPayment.AllowDBNull = false
1519 Me.columnModeOfPayment.MaxLength = 100
1520 Me.columnPaymentModeDetails.MaxLength = 250
1521 Me.columnPaymentDate.AllowDBNull = false
1522 Me.columnPaymentDue.AllowDBNull = false
1523 Me.columnClassType.AllowDBNull = false
1524 Me.columnClassType.MaxLength = 150
1525 Me.columnSchoolType.AllowDBNull = false
1526 Me.columnSchoolType.MaxLength = 150
1527 Me.columnClass.AllowDBNull = false
1528 Me.columnClass.MaxLength = 100
1529 Me.columnSection.AllowDBNull = false
1530 Me.columnSection.MaxLength = 15
1531 End Sub
1532
1533 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1534 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1535 Public Function NewCourseFeePaymentRow() As CourseFeePaymentRow
1536 Return CType(Me.NewRow,CourseFeePaymentRow)
1537 End Function
1538
1539 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1540 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1541 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1542 Return New CourseFeePaymentRow(builder)
1543 End Function
1544
1545 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1546 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1547 Protected Overrides Function GetRowType() As Global.System.Type
1548 Return GetType(CourseFeePaymentRow)
1549 End Function
1550
1551 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1552 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1553 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1554 MyBase.OnRowChanged(e)
1555 If (Not (Me.CourseFeePaymentRowChangedEvent) Is Nothing) Then
1556 RaiseEvent CourseFeePaymentRowChanged(Me, New CourseFeePaymentRowChangeEvent(CType(e.Row,CourseFeePaymentRow), e.Action))
1557 End If
1558 End Sub
1559
1560 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1561 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1562 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1563 MyBase.OnRowChanging(e)
1564 If (Not (Me.CourseFeePaymentRowChangingEvent) Is Nothing) Then
1565 RaiseEvent CourseFeePaymentRowChanging(Me, New CourseFeePaymentRowChangeEvent(CType(e.Row,CourseFeePaymentRow), e.Action))
1566 End If
1567 End Sub
1568
1569 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1570 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1571 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1572 MyBase.OnRowDeleted(e)
1573 If (Not (Me.CourseFeePaymentRowDeletedEvent) Is Nothing) Then
1574 RaiseEvent CourseFeePaymentRowDeleted(Me, New CourseFeePaymentRowChangeEvent(CType(e.Row,CourseFeePaymentRow), e.Action))
1575 End If
1576 End Sub
1577
1578 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1579 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1580 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1581 MyBase.OnRowDeleting(e)
1582 If (Not (Me.CourseFeePaymentRowDeletingEvent) Is Nothing) Then
1583 RaiseEvent CourseFeePaymentRowDeleting(Me, New CourseFeePaymentRowChangeEvent(CType(e.Row,CourseFeePaymentRow), e.Action))
1584 End If
1585 End Sub
1586
1587 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1588 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1589 Public Sub RemoveCourseFeePaymentRow(ByVal row As CourseFeePaymentRow)
1590 Me.Rows.Remove(row)
1591 End Sub
1592
1593 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1594 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1595 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1596 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1597 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1598 Dim ds As Class_DBDataSet = New Class_DBDataSet()
1599 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1600 any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1601 any1.MinOccurs = New Decimal(0)
1602 any1.MaxOccurs = Decimal.MaxValue
1603 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1604 sequence.Items.Add(any1)
1605 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1606 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1607 any2.MinOccurs = New Decimal(1)
1608 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1609 sequence.Items.Add(any2)
1610 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1611 attribute1.Name = "namespace"
1612 attribute1.FixedValue = ds.Namespace
1613 type.Attributes.Add(attribute1)
1614 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1615 attribute2.Name = "tableTypeName"
1616 attribute2.FixedValue = "CourseFeePaymentDataTable"
1617 type.Attributes.Add(attribute2)
1618 type.Particle = sequence
1619 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1620 If xs.Contains(dsSchema.TargetNamespace) Then
1621 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1622 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1623 Try
1624 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1625 dsSchema.Write(s1)
1626 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1627 Do While schemas.MoveNext
1628 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1629 s2.SetLength(0)
1630 schema.Write(s2)
1631 If (s1.Length = s2.Length) Then
1632 s1.Position = 0
1633 s2.Position = 0
1634
1635 Do While ((s1.Position <> s1.Length) _
1636 AndAlso (s1.ReadByte = s2.ReadByte))
1637
1638
1639 Loop
1640 If (s1.Position = s1.Length) Then
1641 Return type
1642 End If
1643 End If
1644
1645 Loop
1646 Finally
1647 If (Not (s1) Is Nothing) Then
1648 s1.Close
1649 End If
1650 If (Not (s2) Is Nothing) Then
1651 s2.Close
1652 End If
1653 End Try
1654 End If
1655 xs.Add(dsSchema)
1656 Return type
1657 End Function
1658 End Class
1659
1660 '''<summary>
1661 '''Represents the strongly named DataTable class.
1662 '''</summary>
1663 <Global.System.Serializable(), _
1664 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1665 Partial Public Class SchoolInfoDataTable
1666 Inherits Global.System.Data.TypedTableBase(Of SchoolInfoRow)
1667
1668 Private columnS_Id As Global.System.Data.DataColumn
1669
1670 Private columnSchoolName As Global.System.Data.DataColumn
1671
1672 Private columnAddress As Global.System.Data.DataColumn
1673
1674 Private columnContactNo As Global.System.Data.DataColumn
1675
1676 Private columnAltContactNo As Global.System.Data.DataColumn
1677
1678 Private columnFaxNo As Global.System.Data.DataColumn
1679
1680 Private columnEmail As Global.System.Data.DataColumn
1681
1682 Private columnWebsite As Global.System.Data.DataColumn
1683
1684 Private columnLogo As Global.System.Data.DataColumn
1685
1686 Private columnRegistrationNo As Global.System.Data.DataColumn
1687
1688 Private columnDiseNo As Global.System.Data.DataColumn
1689
1690 Private columnIndexNo As Global.System.Data.DataColumn
1691
1692 Private columnEstablishedYear As Global.System.Data.DataColumn
1693
1694 Private columnClass As Global.System.Data.DataColumn
1695
1696 Private columnSchoolType As Global.System.Data.DataColumn
1697
1698 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1699 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1700 Public Sub New()
1701 MyBase.New
1702 Me.TableName = "SchoolInfo"
1703 Me.BeginInit
1704 Me.InitClass
1705 Me.EndInit
1706 End Sub
1707
1708 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1709 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1710 Friend Sub New(ByVal table As Global.System.Data.DataTable)
1711 MyBase.New
1712 Me.TableName = table.TableName
1713 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1714 Me.CaseSensitive = table.CaseSensitive
1715 End If
1716 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1717 Me.Locale = table.Locale
1718 End If
1719 If (table.Namespace <> table.DataSet.Namespace) Then
1720 Me.Namespace = table.Namespace
1721 End If
1722 Me.Prefix = table.Prefix
1723 Me.MinimumCapacity = table.MinimumCapacity
1724 End Sub
1725
1726 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1727 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1728 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1729 MyBase.New(info, context)
1730 Me.InitVars
1731 End Sub
1732
1733 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1734 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1735 Public ReadOnly Property S_IdColumn() As Global.System.Data.DataColumn
1736 Get
1737 Return Me.columnS_Id
1738 End Get
1739 End Property
1740
1741 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1742 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1743 Public ReadOnly Property SchoolNameColumn() As Global.System.Data.DataColumn
1744 Get
1745 Return Me.columnSchoolName
1746 End Get
1747 End Property
1748
1749 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1750 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1751 Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
1752 Get
1753 Return Me.columnAddress
1754 End Get
1755 End Property
1756
1757 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1758 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1759 Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
1760 Get
1761 Return Me.columnContactNo
1762 End Get
1763 End Property
1764
1765 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1766 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1767 Public ReadOnly Property AltContactNoColumn() As Global.System.Data.DataColumn
1768 Get
1769 Return Me.columnAltContactNo
1770 End Get
1771 End Property
1772
1773 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1774 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1775 Public ReadOnly Property FaxNoColumn() As Global.System.Data.DataColumn
1776 Get
1777 Return Me.columnFaxNo
1778 End Get
1779 End Property
1780
1781 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1782 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1783 Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
1784 Get
1785 Return Me.columnEmail
1786 End Get
1787 End Property
1788
1789 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1790 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1791 Public ReadOnly Property WebsiteColumn() As Global.System.Data.DataColumn
1792 Get
1793 Return Me.columnWebsite
1794 End Get
1795 End Property
1796
1797 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1798 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1799 Public ReadOnly Property LogoColumn() As Global.System.Data.DataColumn
1800 Get
1801 Return Me.columnLogo
1802 End Get
1803 End Property
1804
1805 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1806 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1807 Public ReadOnly Property RegistrationNoColumn() As Global.System.Data.DataColumn
1808 Get
1809 Return Me.columnRegistrationNo
1810 End Get
1811 End Property
1812
1813 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1814 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1815 Public ReadOnly Property DiseNoColumn() As Global.System.Data.DataColumn
1816 Get
1817 Return Me.columnDiseNo
1818 End Get
1819 End Property
1820
1821 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1822 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1823 Public ReadOnly Property IndexNoColumn() As Global.System.Data.DataColumn
1824 Get
1825 Return Me.columnIndexNo
1826 End Get
1827 End Property
1828
1829 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1830 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1831 Public ReadOnly Property EstablishedYearColumn() As Global.System.Data.DataColumn
1832 Get
1833 Return Me.columnEstablishedYear
1834 End Get
1835 End Property
1836
1837 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1838 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1839 Public ReadOnly Property ClassColumn() As Global.System.Data.DataColumn
1840 Get
1841 Return Me.columnClass
1842 End Get
1843 End Property
1844
1845 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1846 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1847 Public ReadOnly Property SchoolTypeColumn() As Global.System.Data.DataColumn
1848 Get
1849 Return Me.columnSchoolType
1850 End Get
1851 End Property
1852
1853 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1854 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1855 Global.System.ComponentModel.Browsable(false)> _
1856 Public ReadOnly Property Count() As Integer
1857 Get
1858 Return Me.Rows.Count
1859 End Get
1860 End Property
1861
1862 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1863 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1864 Public Default ReadOnly Property Item(ByVal index As Integer) As SchoolInfoRow
1865 Get
1866 Return CType(Me.Rows(index),SchoolInfoRow)
1867 End Get
1868 End Property
1869
1870 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1871 Public Event SchoolInfoRowChanging As SchoolInfoRowChangeEventHandler
1872
1873 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1874 Public Event SchoolInfoRowChanged As SchoolInfoRowChangeEventHandler
1875
1876 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1877 Public Event SchoolInfoRowDeleting As SchoolInfoRowChangeEventHandler
1878
1879 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1880 Public Event SchoolInfoRowDeleted As SchoolInfoRowChangeEventHandler
1881
1882 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1883 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1884 Public Overloads Sub AddSchoolInfoRow(ByVal row As SchoolInfoRow)
1885 Me.Rows.Add(row)
1886 End Sub
1887
1888 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1889 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1890 Public Overloads Function AddSchoolInfoRow(ByVal S_Id As Integer, ByVal SchoolName As String, ByVal Address As String, ByVal ContactNo As String, ByVal AltContactNo As String, ByVal FaxNo As String, ByVal Email As String, ByVal Website As String, ByVal Logo() As Byte, ByVal RegistrationNo As String, ByVal DiseNo As String, ByVal IndexNo As String, ByVal EstablishedYear As Integer, ByVal _Class As String, ByVal SchoolType As String) As SchoolInfoRow
1891 Dim rowSchoolInfoRow As SchoolInfoRow = CType(Me.NewRow,SchoolInfoRow)
1892 Dim columnValuesArray() As Object = New Object() {S_Id, SchoolName, Address, ContactNo, AltContactNo, FaxNo, Email, Website, Logo, RegistrationNo, DiseNo, IndexNo, EstablishedYear, _Class, SchoolType}
1893 rowSchoolInfoRow.ItemArray = columnValuesArray
1894 Me.Rows.Add(rowSchoolInfoRow)
1895 Return rowSchoolInfoRow
1896 End Function
1897
1898 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1899 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1900 Public Function FindByS_Id(ByVal S_Id As Integer) As SchoolInfoRow
1901 Return CType(Me.Rows.Find(New Object() {S_Id}),SchoolInfoRow)
1902 End Function
1903
1904 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1905 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1906 Public Overrides Function Clone() As Global.System.Data.DataTable
1907 Dim cln As SchoolInfoDataTable = CType(MyBase.Clone,SchoolInfoDataTable)
1908 cln.InitVars
1909 Return cln
1910 End Function
1911
1912 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1913 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1914 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1915 Return New SchoolInfoDataTable()
1916 End Function
1917
1918 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1919 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1920 Friend Sub InitVars()
1921 Me.columnS_Id = MyBase.Columns("S_Id")
1922 Me.columnSchoolName = MyBase.Columns("SchoolName")
1923 Me.columnAddress = MyBase.Columns("Address")
1924 Me.columnContactNo = MyBase.Columns("ContactNo")
1925 Me.columnAltContactNo = MyBase.Columns("AltContactNo")
1926 Me.columnFaxNo = MyBase.Columns("FaxNo")
1927 Me.columnEmail = MyBase.Columns("Email")
1928 Me.columnWebsite = MyBase.Columns("Website")
1929 Me.columnLogo = MyBase.Columns("Logo")
1930 Me.columnRegistrationNo = MyBase.Columns("RegistrationNo")
1931 Me.columnDiseNo = MyBase.Columns("DiseNo")
1932 Me.columnIndexNo = MyBase.Columns("IndexNo")
1933 Me.columnEstablishedYear = MyBase.Columns("EstablishedYear")
1934 Me.columnClass = MyBase.Columns("Class")
1935 Me.columnSchoolType = MyBase.Columns("SchoolType")
1936 End Sub
1937
1938 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1939 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1940 Private Sub InitClass()
1941 Me.columnS_Id = New Global.System.Data.DataColumn("S_Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1942 MyBase.Columns.Add(Me.columnS_Id)
1943 Me.columnSchoolName = New Global.System.Data.DataColumn("SchoolName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1944 MyBase.Columns.Add(Me.columnSchoolName)
1945 Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1946 MyBase.Columns.Add(Me.columnAddress)
1947 Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1948 MyBase.Columns.Add(Me.columnContactNo)
1949 Me.columnAltContactNo = New Global.System.Data.DataColumn("AltContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1950 MyBase.Columns.Add(Me.columnAltContactNo)
1951 Me.columnFaxNo = New Global.System.Data.DataColumn("FaxNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1952 MyBase.Columns.Add(Me.columnFaxNo)
1953 Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1954 MyBase.Columns.Add(Me.columnEmail)
1955 Me.columnWebsite = New Global.System.Data.DataColumn("Website", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1956 MyBase.Columns.Add(Me.columnWebsite)
1957 Me.columnLogo = New Global.System.Data.DataColumn("Logo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
1958 MyBase.Columns.Add(Me.columnLogo)
1959 Me.columnRegistrationNo = New Global.System.Data.DataColumn("RegistrationNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1960 MyBase.Columns.Add(Me.columnRegistrationNo)
1961 Me.columnDiseNo = New Global.System.Data.DataColumn("DiseNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1962 MyBase.Columns.Add(Me.columnDiseNo)
1963 Me.columnIndexNo = New Global.System.Data.DataColumn("IndexNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1964 MyBase.Columns.Add(Me.columnIndexNo)
1965 Me.columnEstablishedYear = New Global.System.Data.DataColumn("EstablishedYear", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1966 MyBase.Columns.Add(Me.columnEstablishedYear)
1967 Me.columnClass = New Global.System.Data.DataColumn("Class", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1968 Me.columnClass.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "ClassColumn")
1969 Me.columnClass.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnClass")
1970 Me.columnClass.ExtendedProperties.Add("Generator_UserColumnName", "Class")
1971 MyBase.Columns.Add(Me.columnClass)
1972 Me.columnSchoolType = New Global.System.Data.DataColumn("SchoolType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1973 MyBase.Columns.Add(Me.columnSchoolType)
1974 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnS_Id}, true))
1975 Me.columnS_Id.AllowDBNull = false
1976 Me.columnS_Id.Unique = true
1977 Me.columnSchoolName.AllowDBNull = false
1978 Me.columnSchoolName.MaxLength = 250
1979 Me.columnAddress.AllowDBNull = false
1980 Me.columnAddress.MaxLength = 250
1981 Me.columnContactNo.AllowDBNull = false
1982 Me.columnContactNo.MaxLength = 50
1983 Me.columnAltContactNo.MaxLength = 50
1984 Me.columnFaxNo.MaxLength = 50
1985 Me.columnEmail.AllowDBNull = false
1986 Me.columnEmail.MaxLength = 250
1987 Me.columnWebsite.MaxLength = 250
1988 Me.columnLogo.AllowDBNull = false
1989 Me.columnRegistrationNo.MaxLength = 150
1990 Me.columnDiseNo.MaxLength = 150
1991 Me.columnIndexNo.MaxLength = 10
1992 Me.columnEstablishedYear.AllowDBNull = false
1993 Me.columnClass.MaxLength = 50
1994 Me.columnSchoolType.AllowDBNull = false
1995 Me.columnSchoolType.MaxLength = 150
1996 End Sub
1997
1998 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1999 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2000 Public Function NewSchoolInfoRow() As SchoolInfoRow
2001 Return CType(Me.NewRow,SchoolInfoRow)
2002 End Function
2003
2004 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2005 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2006 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2007 Return New SchoolInfoRow(builder)
2008 End Function
2009
2010 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2011 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2012 Protected Overrides Function GetRowType() As Global.System.Type
2013 Return GetType(SchoolInfoRow)
2014 End Function
2015
2016 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2017 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2018 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2019 MyBase.OnRowChanged(e)
2020 If (Not (Me.SchoolInfoRowChangedEvent) Is Nothing) Then
2021 RaiseEvent SchoolInfoRowChanged(Me, New SchoolInfoRowChangeEvent(CType(e.Row,SchoolInfoRow), e.Action))
2022 End If
2023 End Sub
2024
2025 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2026 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2027 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2028 MyBase.OnRowChanging(e)
2029 If (Not (Me.SchoolInfoRowChangingEvent) Is Nothing) Then
2030 RaiseEvent SchoolInfoRowChanging(Me, New SchoolInfoRowChangeEvent(CType(e.Row,SchoolInfoRow), e.Action))
2031 End If
2032 End Sub
2033
2034 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2035 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2036 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2037 MyBase.OnRowDeleted(e)
2038 If (Not (Me.SchoolInfoRowDeletedEvent) Is Nothing) Then
2039 RaiseEvent SchoolInfoRowDeleted(Me, New SchoolInfoRowChangeEvent(CType(e.Row,SchoolInfoRow), e.Action))
2040 End If
2041 End Sub
2042
2043 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2044 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2045 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2046 MyBase.OnRowDeleting(e)
2047 If (Not (Me.SchoolInfoRowDeletingEvent) Is Nothing) Then
2048 RaiseEvent SchoolInfoRowDeleting(Me, New SchoolInfoRowChangeEvent(CType(e.Row,SchoolInfoRow), e.Action))
2049 End If
2050 End Sub
2051
2052 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2053 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2054 Public Sub RemoveSchoolInfoRow(ByVal row As SchoolInfoRow)
2055 Me.Rows.Remove(row)
2056 End Sub
2057
2058 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2059 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2060 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2061 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2062 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2063 Dim ds As Class_DBDataSet = New Class_DBDataSet()
2064 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2065 any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2066 any1.MinOccurs = New Decimal(0)
2067 any1.MaxOccurs = Decimal.MaxValue
2068 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2069 sequence.Items.Add(any1)
2070 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2071 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2072 any2.MinOccurs = New Decimal(1)
2073 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2074 sequence.Items.Add(any2)
2075 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2076 attribute1.Name = "namespace"
2077 attribute1.FixedValue = ds.Namespace
2078 type.Attributes.Add(attribute1)
2079 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2080 attribute2.Name = "tableTypeName"
2081 attribute2.FixedValue = "SchoolInfoDataTable"
2082 type.Attributes.Add(attribute2)
2083 type.Particle = sequence
2084 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2085 If xs.Contains(dsSchema.TargetNamespace) Then
2086 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2087 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2088 Try
2089 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2090 dsSchema.Write(s1)
2091 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2092 Do While schemas.MoveNext
2093 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2094 s2.SetLength(0)
2095 schema.Write(s2)
2096 If (s1.Length = s2.Length) Then
2097 s1.Position = 0
2098 s2.Position = 0
2099
2100 Do While ((s1.Position <> s1.Length) _
2101 AndAlso (s1.ReadByte = s2.ReadByte))
2102
2103
2104 Loop
2105 If (s1.Position = s1.Length) Then
2106 Return type
2107 End If
2108 End If
2109
2110 Loop
2111 Finally
2112 If (Not (s1) Is Nothing) Then
2113 s1.Close
2114 End If
2115 If (Not (s2) Is Nothing) Then
2116 s2.Close
2117 End If
2118 End Try
2119 End If
2120 xs.Add(dsSchema)
2121 Return type
2122 End Function
2123 End Class
2124
2125 '''<summary>
2126 '''Represents the strongly named DataTable class.
2127 '''</summary>
2128 <Global.System.Serializable(), _
2129 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2130 Partial Public Class StudentDataTable
2131 Inherits Global.System.Data.TypedTableBase(Of StudentRow)
2132
2133 Private columnAdmissionNo As Global.System.Data.DataColumn
2134
2135 Private columnEnrollmentNo As Global.System.Data.DataColumn
2136
2137 Private columnGRNo As Global.System.Data.DataColumn
2138
2139 Private columnUID As Global.System.Data.DataColumn
2140
2141 Private columnStudentName As Global.System.Data.DataColumn
2142
2143 Private columnFatherName As Global.System.Data.DataColumn
2144
2145 Private columnMotherName As Global.System.Data.DataColumn
2146
2147 Private columnFatherCN As Global.System.Data.DataColumn
2148
2149 Private columnPermanentAddress As Global.System.Data.DataColumn
2150
2151 Private columnTemporaryAddress As Global.System.Data.DataColumn
2152
2153 Private columnContactNo As Global.System.Data.DataColumn
2154
2155 Private columnEmailID As Global.System.Data.DataColumn
2156
2157 Private columnDOB As Global.System.Data.DataColumn
2158
2159 Private columnGender As Global.System.Data.DataColumn
2160
2161 Private columnAdmissionDate As Global.System.Data.DataColumn
2162
2163 Private columnSession As Global.System.Data.DataColumn
2164
2165 Private columnCaste As Global.System.Data.DataColumn
2166
2167 Private columnReligion As Global.System.Data.DataColumn
2168
2169 Private columnSectionID As Global.System.Data.DataColumn
2170
2171 Private columnPhoto As Global.System.Data.DataColumn
2172
2173 Private columnNationality As Global.System.Data.DataColumn
2174
2175 Private columnSchoolID As Global.System.Data.DataColumn
2176
2177 Private columnLastSchoolAttended As Global.System.Data.DataColumn
2178
2179 Private columnResult As Global.System.Data.DataColumn
2180
2181 Private columnPassPercentage As Global.System.Data.DataColumn
2182
2183 Private columnStatus As Global.System.Data.DataColumn
2184
2185 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2186 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2187 Public Sub New()
2188 MyBase.New
2189 Me.TableName = "Student"
2190 Me.BeginInit
2191 Me.InitClass
2192 Me.EndInit
2193 End Sub
2194
2195 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2196 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2197 Friend Sub New(ByVal table As Global.System.Data.DataTable)
2198 MyBase.New
2199 Me.TableName = table.TableName
2200 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2201 Me.CaseSensitive = table.CaseSensitive
2202 End If
2203 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2204 Me.Locale = table.Locale
2205 End If
2206 If (table.Namespace <> table.DataSet.Namespace) Then
2207 Me.Namespace = table.Namespace
2208 End If
2209 Me.Prefix = table.Prefix
2210 Me.MinimumCapacity = table.MinimumCapacity
2211 End Sub
2212
2213 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2214 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2215 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2216 MyBase.New(info, context)
2217 Me.InitVars
2218 End Sub
2219
2220 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2221 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2222 Public ReadOnly Property AdmissionNoColumn() As Global.System.Data.DataColumn
2223 Get
2224 Return Me.columnAdmissionNo
2225 End Get
2226 End Property
2227
2228 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2229 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2230 Public ReadOnly Property EnrollmentNoColumn() As Global.System.Data.DataColumn
2231 Get
2232 Return Me.columnEnrollmentNo
2233 End Get
2234 End Property
2235
2236 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2237 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2238 Public ReadOnly Property GRNoColumn() As Global.System.Data.DataColumn
2239 Get
2240 Return Me.columnGRNo
2241 End Get
2242 End Property
2243
2244 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2245 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2246 Public ReadOnly Property UIDColumn() As Global.System.Data.DataColumn
2247 Get
2248 Return Me.columnUID
2249 End Get
2250 End Property
2251
2252 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2253 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2254 Public ReadOnly Property StudentNameColumn() As Global.System.Data.DataColumn
2255 Get
2256 Return Me.columnStudentName
2257 End Get
2258 End Property
2259
2260 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2261 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2262 Public ReadOnly Property FatherNameColumn() As Global.System.Data.DataColumn
2263 Get
2264 Return Me.columnFatherName
2265 End Get
2266 End Property
2267
2268 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2269 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2270 Public ReadOnly Property MotherNameColumn() As Global.System.Data.DataColumn
2271 Get
2272 Return Me.columnMotherName
2273 End Get
2274 End Property
2275
2276 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2277 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2278 Public ReadOnly Property FatherCNColumn() As Global.System.Data.DataColumn
2279 Get
2280 Return Me.columnFatherCN
2281 End Get
2282 End Property
2283
2284 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2285 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2286 Public ReadOnly Property PermanentAddressColumn() As Global.System.Data.DataColumn
2287 Get
2288 Return Me.columnPermanentAddress
2289 End Get
2290 End Property
2291
2292 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2293 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2294 Public ReadOnly Property TemporaryAddressColumn() As Global.System.Data.DataColumn
2295 Get
2296 Return Me.columnTemporaryAddress
2297 End Get
2298 End Property
2299
2300 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2301 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2302 Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
2303 Get
2304 Return Me.columnContactNo
2305 End Get
2306 End Property
2307
2308 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2309 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2310 Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
2311 Get
2312 Return Me.columnEmailID
2313 End Get
2314 End Property
2315
2316 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2317 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2318 Public ReadOnly Property DOBColumn() As Global.System.Data.DataColumn
2319 Get
2320 Return Me.columnDOB
2321 End Get
2322 End Property
2323
2324 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2325 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2326 Public ReadOnly Property GenderColumn() As Global.System.Data.DataColumn
2327 Get
2328 Return Me.columnGender
2329 End Get
2330 End Property
2331
2332 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2333 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2334 Public ReadOnly Property AdmissionDateColumn() As Global.System.Data.DataColumn
2335 Get
2336 Return Me.columnAdmissionDate
2337 End Get
2338 End Property
2339
2340 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2341 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2342 Public ReadOnly Property SessionColumn() As Global.System.Data.DataColumn
2343 Get
2344 Return Me.columnSession
2345 End Get
2346 End Property
2347
2348 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2349 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2350 Public ReadOnly Property CasteColumn() As Global.System.Data.DataColumn
2351 Get
2352 Return Me.columnCaste
2353 End Get
2354 End Property
2355
2356 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2357 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2358 Public ReadOnly Property ReligionColumn() As Global.System.Data.DataColumn
2359 Get
2360 Return Me.columnReligion
2361 End Get
2362 End Property
2363
2364 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2365 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2366 Public ReadOnly Property SectionIDColumn() As Global.System.Data.DataColumn
2367 Get
2368 Return Me.columnSectionID
2369 End Get
2370 End Property
2371
2372 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2373 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2374 Public ReadOnly Property PhotoColumn() As Global.System.Data.DataColumn
2375 Get
2376 Return Me.columnPhoto
2377 End Get
2378 End Property
2379
2380 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2381 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2382 Public ReadOnly Property NationalityColumn() As Global.System.Data.DataColumn
2383 Get
2384 Return Me.columnNationality
2385 End Get
2386 End Property
2387
2388 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2389 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2390 Public ReadOnly Property SchoolIDColumn() As Global.System.Data.DataColumn
2391 Get
2392 Return Me.columnSchoolID
2393 End Get
2394 End Property
2395
2396 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2397 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2398 Public ReadOnly Property LastSchoolAttendedColumn() As Global.System.Data.DataColumn
2399 Get
2400 Return Me.columnLastSchoolAttended
2401 End Get
2402 End Property
2403
2404 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2405 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2406 Public ReadOnly Property ResultColumn() As Global.System.Data.DataColumn
2407 Get
2408 Return Me.columnResult
2409 End Get
2410 End Property
2411
2412 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2413 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2414 Public ReadOnly Property PassPercentageColumn() As Global.System.Data.DataColumn
2415 Get
2416 Return Me.columnPassPercentage
2417 End Get
2418 End Property
2419
2420 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2421 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2422 Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
2423 Get
2424 Return Me.columnStatus
2425 End Get
2426 End Property
2427
2428 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2429 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2430 Global.System.ComponentModel.Browsable(false)> _
2431 Public ReadOnly Property Count() As Integer
2432 Get
2433 Return Me.Rows.Count
2434 End Get
2435 End Property
2436
2437 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2438 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2439 Public Default ReadOnly Property Item(ByVal index As Integer) As StudentRow
2440 Get
2441 Return CType(Me.Rows(index),StudentRow)
2442 End Get
2443 End Property
2444
2445 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2446 Public Event StudentRowChanging As StudentRowChangeEventHandler
2447
2448 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2449 Public Event StudentRowChanged As StudentRowChangeEventHandler
2450
2451 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2452 Public Event StudentRowDeleting As StudentRowChangeEventHandler
2453
2454 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2455 Public Event StudentRowDeleted As StudentRowChangeEventHandler
2456
2457 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2458 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2459 Public Overloads Sub AddStudentRow(ByVal row As StudentRow)
2460 Me.Rows.Add(row)
2461 End Sub
2462
2463 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2464 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2465 Public Overloads Function AddStudentRow( _
2466 ByVal AdmissionNo As String, _
2467 ByVal EnrollmentNo As String, _
2468 ByVal GRNo As String, _
2469 ByVal UID As String, _
2470 ByVal StudentName As String, _
2471 ByVal FatherName As String, _
2472 ByVal MotherName As String, _
2473 ByVal FatherCN As String, _
2474 ByVal PermanentAddress As String, _
2475 ByVal TemporaryAddress As String, _
2476 ByVal ContactNo As String, _
2477 ByVal EmailID As String, _
2478 ByVal DOB As Date, _
2479 ByVal Gender As String, _
2480 ByVal AdmissionDate As Date, _
2481 ByVal Session As String, _
2482 ByVal Caste As String, _
2483 ByVal Religion As String, _
2484 ByVal SectionID As Integer, _
2485 ByVal Photo() As Byte, _
2486 ByVal Nationality As String, _
2487 ByVal parentSchoolInfoRowByFK_Student_SchoolInfo As SchoolInfoRow, _
2488 ByVal LastSchoolAttended As String, _
2489 ByVal Result As String, _
2490 ByVal PassPercentage As String, _
2491 ByVal Status As String) As StudentRow
2492 Dim rowStudentRow As StudentRow = CType(Me.NewRow,StudentRow)
2493 Dim columnValuesArray() As Object = New Object() {AdmissionNo, EnrollmentNo, GRNo, UID, StudentName, FatherName, MotherName, FatherCN, PermanentAddress, TemporaryAddress, ContactNo, EmailID, DOB, Gender, AdmissionDate, Session, Caste, Religion, SectionID, Photo, Nationality, Nothing, LastSchoolAttended, Result, PassPercentage, Status}
2494 If (Not (parentSchoolInfoRowByFK_Student_SchoolInfo) Is Nothing) Then
2495 columnValuesArray(21) = parentSchoolInfoRowByFK_Student_SchoolInfo(0)
2496 End If
2497 rowStudentRow.ItemArray = columnValuesArray
2498 Me.Rows.Add(rowStudentRow)
2499 Return rowStudentRow
2500 End Function
2501
2502 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2503 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2504 Public Function FindByAdmissionNo(ByVal AdmissionNo As String) As StudentRow
2505 Return CType(Me.Rows.Find(New Object() {AdmissionNo}),StudentRow)
2506 End Function
2507
2508 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2509 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2510 Public Overrides Function Clone() As Global.System.Data.DataTable
2511 Dim cln As StudentDataTable = CType(MyBase.Clone,StudentDataTable)
2512 cln.InitVars
2513 Return cln
2514 End Function
2515
2516 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2517 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2518 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2519 Return New StudentDataTable()
2520 End Function
2521
2522 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2523 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2524 Friend Sub InitVars()
2525 Me.columnAdmissionNo = MyBase.Columns("AdmissionNo")
2526 Me.columnEnrollmentNo = MyBase.Columns("EnrollmentNo")
2527 Me.columnGRNo = MyBase.Columns("GRNo")
2528 Me.columnUID = MyBase.Columns("UID")
2529 Me.columnStudentName = MyBase.Columns("StudentName")
2530 Me.columnFatherName = MyBase.Columns("FatherName")
2531 Me.columnMotherName = MyBase.Columns("MotherName")
2532 Me.columnFatherCN = MyBase.Columns("FatherCN")
2533 Me.columnPermanentAddress = MyBase.Columns("PermanentAddress")
2534 Me.columnTemporaryAddress = MyBase.Columns("TemporaryAddress")
2535 Me.columnContactNo = MyBase.Columns("ContactNo")
2536 Me.columnEmailID = MyBase.Columns("EmailID")
2537 Me.columnDOB = MyBase.Columns("DOB")
2538 Me.columnGender = MyBase.Columns("Gender")
2539 Me.columnAdmissionDate = MyBase.Columns("AdmissionDate")
2540 Me.columnSession = MyBase.Columns("Session")
2541 Me.columnCaste = MyBase.Columns("Caste")
2542 Me.columnReligion = MyBase.Columns("Religion")
2543 Me.columnSectionID = MyBase.Columns("SectionID")
2544 Me.columnPhoto = MyBase.Columns("Photo")
2545 Me.columnNationality = MyBase.Columns("Nationality")
2546 Me.columnSchoolID = MyBase.Columns("SchoolID")
2547 Me.columnLastSchoolAttended = MyBase.Columns("LastSchoolAttended")
2548 Me.columnResult = MyBase.Columns("Result")
2549 Me.columnPassPercentage = MyBase.Columns("PassPercentage")
2550 Me.columnStatus = MyBase.Columns("Status")
2551 End Sub
2552
2553 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2554 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2555 Private Sub InitClass()
2556 Me.columnAdmissionNo = New Global.System.Data.DataColumn("AdmissionNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2557 MyBase.Columns.Add(Me.columnAdmissionNo)
2558 Me.columnEnrollmentNo = New Global.System.Data.DataColumn("EnrollmentNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2559 MyBase.Columns.Add(Me.columnEnrollmentNo)
2560 Me.columnGRNo = New Global.System.Data.DataColumn("GRNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2561 MyBase.Columns.Add(Me.columnGRNo)
2562 Me.columnUID = New Global.System.Data.DataColumn("UID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2563 MyBase.Columns.Add(Me.columnUID)
2564 Me.columnStudentName = New Global.System.Data.DataColumn("StudentName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2565 MyBase.Columns.Add(Me.columnStudentName)
2566 Me.columnFatherName = New Global.System.Data.DataColumn("FatherName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2567 MyBase.Columns.Add(Me.columnFatherName)
2568 Me.columnMotherName = New Global.System.Data.DataColumn("MotherName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2569 MyBase.Columns.Add(Me.columnMotherName)
2570 Me.columnFatherCN = New Global.System.Data.DataColumn("FatherCN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2571 MyBase.Columns.Add(Me.columnFatherCN)
2572 Me.columnPermanentAddress = New Global.System.Data.DataColumn("PermanentAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2573 MyBase.Columns.Add(Me.columnPermanentAddress)
2574 Me.columnTemporaryAddress = New Global.System.Data.DataColumn("TemporaryAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2575 MyBase.Columns.Add(Me.columnTemporaryAddress)
2576 Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2577 MyBase.Columns.Add(Me.columnContactNo)
2578 Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2579 MyBase.Columns.Add(Me.columnEmailID)
2580 Me.columnDOB = New Global.System.Data.DataColumn("DOB", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
2581 MyBase.Columns.Add(Me.columnDOB)
2582 Me.columnGender = New Global.System.Data.DataColumn("Gender", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2583 MyBase.Columns.Add(Me.columnGender)
2584 Me.columnAdmissionDate = New Global.System.Data.DataColumn("AdmissionDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
2585 MyBase.Columns.Add(Me.columnAdmissionDate)
2586 Me.columnSession = New Global.System.Data.DataColumn("Session", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2587 MyBase.Columns.Add(Me.columnSession)
2588 Me.columnCaste = New Global.System.Data.DataColumn("Caste", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2589 MyBase.Columns.Add(Me.columnCaste)
2590 Me.columnReligion = New Global.System.Data.DataColumn("Religion", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2591 MyBase.Columns.Add(Me.columnReligion)
2592 Me.columnSectionID = New Global.System.Data.DataColumn("SectionID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2593 MyBase.Columns.Add(Me.columnSectionID)
2594 Me.columnPhoto = New Global.System.Data.DataColumn("Photo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
2595 MyBase.Columns.Add(Me.columnPhoto)
2596 Me.columnNationality = New Global.System.Data.DataColumn("Nationality", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2597 MyBase.Columns.Add(Me.columnNationality)
2598 Me.columnSchoolID = New Global.System.Data.DataColumn("SchoolID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2599 MyBase.Columns.Add(Me.columnSchoolID)
2600 Me.columnLastSchoolAttended = New Global.System.Data.DataColumn("LastSchoolAttended", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2601 MyBase.Columns.Add(Me.columnLastSchoolAttended)
2602 Me.columnResult = New Global.System.Data.DataColumn("Result", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2603 MyBase.Columns.Add(Me.columnResult)
2604 Me.columnPassPercentage = New Global.System.Data.DataColumn("PassPercentage", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2605 MyBase.Columns.Add(Me.columnPassPercentage)
2606 Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2607 MyBase.Columns.Add(Me.columnStatus)
2608 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnAdmissionNo}, true))
2609 Me.columnAdmissionNo.AllowDBNull = false
2610 Me.columnAdmissionNo.Unique = true
2611 Me.columnAdmissionNo.MaxLength = 15
2612 Me.columnEnrollmentNo.MaxLength = 15
2613 Me.columnGRNo.MaxLength = 50
2614 Me.columnUID.MaxLength = 50
2615 Me.columnStudentName.AllowDBNull = false
2616 Me.columnStudentName.MaxLength = 100
2617 Me.columnFatherName.AllowDBNull = false
2618 Me.columnFatherName.MaxLength = 100
2619 Me.columnMotherName.AllowDBNull = false
2620 Me.columnMotherName.MaxLength = 100
2621 Me.columnFatherCN.MaxLength = 15
2622 Me.columnPermanentAddress.AllowDBNull = false
2623 Me.columnPermanentAddress.MaxLength = 250
2624 Me.columnTemporaryAddress.AllowDBNull = false
2625 Me.columnTemporaryAddress.MaxLength = 250
2626 Me.columnContactNo.AllowDBNull = false
2627 Me.columnContactNo.MaxLength = 15
2628 Me.columnEmailID.MaxLength = 250
2629 Me.columnDOB.AllowDBNull = false
2630 Me.columnGender.AllowDBNull = false
2631 Me.columnGender.MaxLength = 10
2632 Me.columnAdmissionDate.AllowDBNull = false
2633 Me.columnSession.AllowDBNull = false
2634 Me.columnSession.MaxLength = 15
2635 Me.columnCaste.AllowDBNull = false
2636 Me.columnCaste.MaxLength = 15
2637 Me.columnReligion.AllowDBNull = false
2638 Me.columnReligion.MaxLength = 15
2639 Me.columnSectionID.AllowDBNull = false
2640 Me.columnPhoto.AllowDBNull = false
2641 Me.columnNationality.MaxLength = 100
2642 Me.columnSchoolID.AllowDBNull = false
2643 Me.columnLastSchoolAttended.MaxLength = 250
2644 Me.columnResult.MaxLength = 20
2645 Me.columnPassPercentage.MaxLength = 10
2646 Me.columnStatus.AllowDBNull = false
2647 Me.columnStatus.MaxLength = 15
2648 End Sub
2649
2650 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2651 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2652 Public Function NewStudentRow() As StudentRow
2653 Return CType(Me.NewRow,StudentRow)
2654 End Function
2655
2656 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2657 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2658 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2659 Return New StudentRow(builder)
2660 End Function
2661
2662 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2663 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2664 Protected Overrides Function GetRowType() As Global.System.Type
2665 Return GetType(StudentRow)
2666 End Function
2667
2668 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2669 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2670 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2671 MyBase.OnRowChanged(e)
2672 If (Not (Me.StudentRowChangedEvent) Is Nothing) Then
2673 RaiseEvent StudentRowChanged(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
2674 End If
2675 End Sub
2676
2677 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2678 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2679 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2680 MyBase.OnRowChanging(e)
2681 If (Not (Me.StudentRowChangingEvent) Is Nothing) Then
2682 RaiseEvent StudentRowChanging(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
2683 End If
2684 End Sub
2685
2686 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2687 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2688 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2689 MyBase.OnRowDeleted(e)
2690 If (Not (Me.StudentRowDeletedEvent) Is Nothing) Then
2691 RaiseEvent StudentRowDeleted(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
2692 End If
2693 End Sub
2694
2695 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2696 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2697 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2698 MyBase.OnRowDeleting(e)
2699 If (Not (Me.StudentRowDeletingEvent) Is Nothing) Then
2700 RaiseEvent StudentRowDeleting(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
2701 End If
2702 End Sub
2703
2704 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2705 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2706 Public Sub RemoveStudentRow(ByVal row As StudentRow)
2707 Me.Rows.Remove(row)
2708 End Sub
2709
2710 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2711 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2712 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2713 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2714 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2715 Dim ds As Class_DBDataSet = New Class_DBDataSet()
2716 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2717 any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2718 any1.MinOccurs = New Decimal(0)
2719 any1.MaxOccurs = Decimal.MaxValue
2720 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2721 sequence.Items.Add(any1)
2722 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2723 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2724 any2.MinOccurs = New Decimal(1)
2725 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2726 sequence.Items.Add(any2)
2727 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2728 attribute1.Name = "namespace"
2729 attribute1.FixedValue = ds.Namespace
2730 type.Attributes.Add(attribute1)
2731 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2732 attribute2.Name = "tableTypeName"
2733 attribute2.FixedValue = "StudentDataTable"
2734 type.Attributes.Add(attribute2)
2735 type.Particle = sequence
2736 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2737 If xs.Contains(dsSchema.TargetNamespace) Then
2738 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2739 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2740 Try
2741 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2742 dsSchema.Write(s1)
2743 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2744 Do While schemas.MoveNext
2745 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2746 s2.SetLength(0)
2747 schema.Write(s2)
2748 If (s1.Length = s2.Length) Then
2749 s1.Position = 0
2750 s2.Position = 0
2751
2752 Do While ((s1.Position <> s1.Length) _
2753 AndAlso (s1.ReadByte = s2.ReadByte))
2754
2755
2756 Loop
2757 If (s1.Position = s1.Length) Then
2758 Return type
2759 End If
2760 End If
2761
2762 Loop
2763 Finally
2764 If (Not (s1) Is Nothing) Then
2765 s1.Close
2766 End If
2767 If (Not (s2) Is Nothing) Then
2768 s2.Close
2769 End If
2770 End Try
2771 End If
2772 xs.Add(dsSchema)
2773 Return type
2774 End Function
2775 End Class
2776
2777 '''<summary>
2778 '''Represents strongly named DataRow class.
2779 '''</summary>
2780 Partial Public Class ClassRow
2781 Inherits Global.System.Data.DataRow
2782
2783 Private tableClass As ClassDataTable
2784
2785 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2786 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2787 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
2788 MyBase.New(rb)
2789 Me.tableClass = CType(Me.Table,ClassDataTable)
2790 End Sub
2791
2792 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2793 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2794 Public Property ClassName() As String
2795 Get
2796 Return CType(Me(Me.tableClass.ClassNameColumn),String)
2797 End Get
2798 Set
2799 Me(Me.tableClass.ClassNameColumn) = value
2800 End Set
2801 End Property
2802
2803 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2804 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2805 Public Property ClassType() As String
2806 Get
2807 Return CType(Me(Me.tableClass.ClassTypeColumn),String)
2808 End Get
2809 Set
2810 Me(Me.tableClass.ClassTypeColumn) = value
2811 End Set
2812 End Property
2813
2814 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2815 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2816 Public Function GetCourseFeeRows() As CourseFeeRow()
2817 If (Me.Table.ChildRelations("FK_CourseFee_CourseFee") Is Nothing) Then
2818 Return New CourseFeeRow(-1) {}
2819 Else
2820 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseFee_CourseFee")),CourseFeeRow())
2821 End If
2822 End Function
2823 End Class
2824
2825 '''<summary>
2826 '''Represents strongly named DataRow class.
2827 '''</summary>
2828 Partial Public Class CourseFeeRow
2829 Inherits Global.System.Data.DataRow
2830
2831 Private tableCourseFee As CourseFeeDataTable
2832
2833 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2834 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2835 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
2836 MyBase.New(rb)
2837 Me.tableCourseFee = CType(Me.Table,CourseFeeDataTable)
2838 End Sub
2839
2840 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2841 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2842 Public Property C_ID() As Integer
2843 Get
2844 Return CType(Me(Me.tableCourseFee.C_IDColumn),Integer)
2845 End Get
2846 Set
2847 Me(Me.tableCourseFee.C_IDColumn) = value
2848 End Set
2849 End Property
2850
2851 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2852 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2853 Public Property SchoolID() As Integer
2854 Get
2855 Return CType(Me(Me.tableCourseFee.SchoolIDColumn),Integer)
2856 End Get
2857 Set
2858 Me(Me.tableCourseFee.SchoolIDColumn) = value
2859 End Set
2860 End Property
2861
2862 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2863 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2864 Public Property _Class() As String
2865 Get
2866 Return CType(Me(Me.tableCourseFee.ClassColumn),String)
2867 End Get
2868 Set
2869 Me(Me.tableCourseFee.ClassColumn) = value
2870 End Set
2871 End Property
2872
2873 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2874 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2875 Public Property FeeName() As String
2876 Get
2877 Return CType(Me(Me.tableCourseFee.FeeNameColumn),String)
2878 End Get
2879 Set
2880 Me(Me.tableCourseFee.FeeNameColumn) = value
2881 End Set
2882 End Property
2883
2884 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2885 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2886 Public Property Semester() As String
2887 Get
2888 Return CType(Me(Me.tableCourseFee.SemesterColumn),String)
2889 End Get
2890 Set
2891 Me(Me.tableCourseFee.SemesterColumn) = value
2892 End Set
2893 End Property
2894
2895 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2896 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2897 Public Property Fee() As Decimal
2898 Get
2899 Return CType(Me(Me.tableCourseFee.FeeColumn),Decimal)
2900 End Get
2901 Set
2902 Me(Me.tableCourseFee.FeeColumn) = value
2903 End Set
2904 End Property
2905
2906 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2907 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2908 Public Property ClassRow() As ClassRow
2909 Get
2910 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseFee_CourseFee")),ClassRow)
2911 End Get
2912 Set
2913 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseFee_CourseFee"))
2914 End Set
2915 End Property
2916
2917 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2918 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2919 Public Property SchoolInfoRow() As SchoolInfoRow
2920 Get
2921 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseFee_SchoolInfo")),SchoolInfoRow)
2922 End Get
2923 Set
2924 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseFee_SchoolInfo"))
2925 End Set
2926 End Property
2927
2928 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2929 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2930 Public Function GetCourseFeePaymentRows() As CourseFeePaymentRow()
2931 If (Me.Table.ChildRelations("FK_CourseFee_CourseFeePayment") Is Nothing) Then
2932 Return New CourseFeePaymentRow(-1) {}
2933 Else
2934 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseFee_CourseFeePayment")),CourseFeePaymentRow())
2935 End If
2936 End Function
2937 End Class
2938
2939 '''<summary>
2940 '''Represents strongly named DataRow class.
2941 '''</summary>
2942 Partial Public Class CourseFeePaymentRow
2943 Inherits Global.System.Data.DataRow
2944
2945 Private tableCourseFeePayment As CourseFeePaymentDataTable
2946
2947 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2948 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2949 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
2950 MyBase.New(rb)
2951 Me.tableCourseFeePayment = CType(Me.Table,CourseFeePaymentDataTable)
2952 End Sub
2953
2954 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2955 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2956 Public Property Id() As Integer
2957 Get
2958 Return CType(Me(Me.tableCourseFeePayment.IdColumn),Integer)
2959 End Get
2960 Set
2961 Me(Me.tableCourseFeePayment.IdColumn) = value
2962 End Set
2963 End Property
2964
2965 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2966 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2967 Public Property CFP_ID() As Integer
2968 Get
2969 Return CType(Me(Me.tableCourseFeePayment.CFP_IDColumn),Integer)
2970 End Get
2971 Set
2972 Me(Me.tableCourseFeePayment.CFP_IDColumn) = value
2973 End Set
2974 End Property
2975
2976 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2977 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2978 Public Property PaymentID() As String
2979 Get
2980 Return CType(Me(Me.tableCourseFeePayment.PaymentIDColumn),String)
2981 End Get
2982 Set
2983 Me(Me.tableCourseFeePayment.PaymentIDColumn) = value
2984 End Set
2985 End Property
2986
2987 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2988 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2989 Public Property AdmissionNo() As String
2990 Get
2991 Return CType(Me(Me.tableCourseFeePayment.AdmissionNoColumn),String)
2992 End Get
2993 Set
2994 Me(Me.tableCourseFeePayment.AdmissionNoColumn) = value
2995 End Set
2996 End Property
2997
2998 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2999 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3000 Public Property Session() As String
3001 Get
3002 Return CType(Me(Me.tableCourseFeePayment.SessionColumn),String)
3003 End Get
3004 Set
3005 Me(Me.tableCourseFeePayment.SessionColumn) = value
3006 End Set
3007 End Property
3008
3009 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3010 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3011 Public Property Semester() As String
3012 Get
3013 Return CType(Me(Me.tableCourseFeePayment.SemesterColumn),String)
3014 End Get
3015 Set
3016 Me(Me.tableCourseFeePayment.SemesterColumn) = value
3017 End Set
3018 End Property
3019
3020 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3021 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3022 Public Property TotalFee() As Decimal
3023 Get
3024 Return CType(Me(Me.tableCourseFeePayment.TotalFeeColumn),Decimal)
3025 End Get
3026 Set
3027 Me(Me.tableCourseFeePayment.TotalFeeColumn) = value
3028 End Set
3029 End Property
3030
3031 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3032 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3033 Public Property DiscountPer() As Decimal
3034 Get
3035 Return CType(Me(Me.tableCourseFeePayment.DiscountPerColumn),Decimal)
3036 End Get
3037 Set
3038 Me(Me.tableCourseFeePayment.DiscountPerColumn) = value
3039 End Set
3040 End Property
3041
3042 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3043 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3044 Public Property DiscountAmt() As Decimal
3045 Get
3046 Return CType(Me(Me.tableCourseFeePayment.DiscountAmtColumn),Decimal)
3047 End Get
3048 Set
3049 Me(Me.tableCourseFeePayment.DiscountAmtColumn) = value
3050 End Set
3051 End Property
3052
3053 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3054 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3055 Public Property PreviousDue() As Decimal
3056 Get
3057 Return CType(Me(Me.tableCourseFeePayment.PreviousDueColumn),Decimal)
3058 End Get
3059 Set
3060 Me(Me.tableCourseFeePayment.PreviousDueColumn) = value
3061 End Set
3062 End Property
3063
3064 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3065 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3066 Public Property Fine() As Decimal
3067 Get
3068 Return CType(Me(Me.tableCourseFeePayment.FineColumn),Decimal)
3069 End Get
3070 Set
3071 Me(Me.tableCourseFeePayment.FineColumn) = value
3072 End Set
3073 End Property
3074
3075 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3076 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3077 Public Property GrandTotal() As Decimal
3078 Get
3079 Return CType(Me(Me.tableCourseFeePayment.GrandTotalColumn),Decimal)
3080 End Get
3081 Set
3082 Me(Me.tableCourseFeePayment.GrandTotalColumn) = value
3083 End Set
3084 End Property
3085
3086 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3087 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3088 Public Property TotalPaid() As Decimal
3089 Get
3090 Return CType(Me(Me.tableCourseFeePayment.TotalPaidColumn),Decimal)
3091 End Get
3092 Set
3093 Me(Me.tableCourseFeePayment.TotalPaidColumn) = value
3094 End Set
3095 End Property
3096
3097 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3098 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3099 Public Property ModeOfPayment() As String
3100 Get
3101 Return CType(Me(Me.tableCourseFeePayment.ModeOfPaymentColumn),String)
3102 End Get
3103 Set
3104 Me(Me.tableCourseFeePayment.ModeOfPaymentColumn) = value
3105 End Set
3106 End Property
3107
3108 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3109 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3110 Public Property PaymentModeDetails() As String
3111 Get
3112 Try
3113 Return CType(Me(Me.tableCourseFeePayment.PaymentModeDetailsColumn),String)
3114 Catch e As Global.System.InvalidCastException
3115 Throw New Global.System.Data.StrongTypingException("The value for column 'PaymentModeDetails' in table 'CourseFeePayment' is DBNull.", e)
3116 End Try
3117 End Get
3118 Set
3119 Me(Me.tableCourseFeePayment.PaymentModeDetailsColumn) = value
3120 End Set
3121 End Property
3122
3123 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3124 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3125 Public Property PaymentDate() As Date
3126 Get
3127 Return CType(Me(Me.tableCourseFeePayment.PaymentDateColumn),Date)
3128 End Get
3129 Set
3130 Me(Me.tableCourseFeePayment.PaymentDateColumn) = value
3131 End Set
3132 End Property
3133
3134 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3135 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3136 Public Property PaymentDue() As Decimal
3137 Get
3138 Return CType(Me(Me.tableCourseFeePayment.PaymentDueColumn),Decimal)
3139 End Get
3140 Set
3141 Me(Me.tableCourseFeePayment.PaymentDueColumn) = value
3142 End Set
3143 End Property
3144
3145 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3146 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3147 Public Property ClassType() As String
3148 Get
3149 Return CType(Me(Me.tableCourseFeePayment.ClassTypeColumn),String)
3150 End Get
3151 Set
3152 Me(Me.tableCourseFeePayment.ClassTypeColumn) = value
3153 End Set
3154 End Property
3155
3156 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3157 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3158 Public Property SchoolType() As String
3159 Get
3160 Return CType(Me(Me.tableCourseFeePayment.SchoolTypeColumn),String)
3161 End Get
3162 Set
3163 Me(Me.tableCourseFeePayment.SchoolTypeColumn) = value
3164 End Set
3165 End Property
3166
3167 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3168 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3169 Public Property _Class() As String
3170 Get
3171 Return CType(Me(Me.tableCourseFeePayment.ClassColumn),String)
3172 End Get
3173 Set
3174 Me(Me.tableCourseFeePayment.ClassColumn) = value
3175 End Set
3176 End Property
3177
3178 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3179 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3180 Public Property Section() As String
3181 Get
3182 Return CType(Me(Me.tableCourseFeePayment.SectionColumn),String)
3183 End Get
3184 Set
3185 Me(Me.tableCourseFeePayment.SectionColumn) = value
3186 End Set
3187 End Property
3188
3189 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3190 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3191 Public Property CourseFeeRow() As CourseFeeRow
3192 Get
3193 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseFee_CourseFeePayment")),CourseFeeRow)
3194 End Get
3195 Set
3196 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseFee_CourseFeePayment"))
3197 End Set
3198 End Property
3199
3200 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3201 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3202 Public Property StudentRow() As StudentRow
3203 Get
3204 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_CourseFeePayment_Student")),StudentRow)
3205 End Get
3206 Set
3207 Me.SetParentRow(value, Me.Table.ParentRelations("FK_CourseFeePayment_Student"))
3208 End Set
3209 End Property
3210
3211 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3212 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3213 Public Function IsPaymentModeDetailsNull() As Boolean
3214 Return Me.IsNull(Me.tableCourseFeePayment.PaymentModeDetailsColumn)
3215 End Function
3216
3217 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3218 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3219 Public Sub SetPaymentModeDetailsNull()
3220 Me(Me.tableCourseFeePayment.PaymentModeDetailsColumn) = Global.System.Convert.DBNull
3221 End Sub
3222 End Class
3223
3224 '''<summary>
3225 '''Represents strongly named DataRow class.
3226 '''</summary>
3227 Partial Public Class SchoolInfoRow
3228 Inherits Global.System.Data.DataRow
3229
3230 Private tableSchoolInfo As SchoolInfoDataTable
3231
3232 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3233 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3234 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
3235 MyBase.New(rb)
3236 Me.tableSchoolInfo = CType(Me.Table,SchoolInfoDataTable)
3237 End Sub
3238
3239 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3240 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3241 Public Property S_Id() As Integer
3242 Get
3243 Return CType(Me(Me.tableSchoolInfo.S_IdColumn),Integer)
3244 End Get
3245 Set
3246 Me(Me.tableSchoolInfo.S_IdColumn) = value
3247 End Set
3248 End Property
3249
3250 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3251 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3252 Public Property SchoolName() As String
3253 Get
3254 Return CType(Me(Me.tableSchoolInfo.SchoolNameColumn),String)
3255 End Get
3256 Set
3257 Me(Me.tableSchoolInfo.SchoolNameColumn) = value
3258 End Set
3259 End Property
3260
3261 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3262 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3263 Public Property Address() As String
3264 Get
3265 Return CType(Me(Me.tableSchoolInfo.AddressColumn),String)
3266 End Get
3267 Set
3268 Me(Me.tableSchoolInfo.AddressColumn) = value
3269 End Set
3270 End Property
3271
3272 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3273 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3274 Public Property ContactNo() As String
3275 Get
3276 Return CType(Me(Me.tableSchoolInfo.ContactNoColumn),String)
3277 End Get
3278 Set
3279 Me(Me.tableSchoolInfo.ContactNoColumn) = value
3280 End Set
3281 End Property
3282
3283 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3284 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3285 Public Property AltContactNo() As String
3286 Get
3287 Try
3288 Return CType(Me(Me.tableSchoolInfo.AltContactNoColumn),String)
3289 Catch e As Global.System.InvalidCastException
3290 Throw New Global.System.Data.StrongTypingException("The value for column 'AltContactNo' in table 'SchoolInfo' is DBNull.", e)
3291 End Try
3292 End Get
3293 Set
3294 Me(Me.tableSchoolInfo.AltContactNoColumn) = value
3295 End Set
3296 End Property
3297
3298 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3299 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3300 Public Property FaxNo() As String
3301 Get
3302 Try
3303 Return CType(Me(Me.tableSchoolInfo.FaxNoColumn),String)
3304 Catch e As Global.System.InvalidCastException
3305 Throw New Global.System.Data.StrongTypingException("The value for column 'FaxNo' in table 'SchoolInfo' is DBNull.", e)
3306 End Try
3307 End Get
3308 Set
3309 Me(Me.tableSchoolInfo.FaxNoColumn) = value
3310 End Set
3311 End Property
3312
3313 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3314 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3315 Public Property Email() As String
3316 Get
3317 Return CType(Me(Me.tableSchoolInfo.EmailColumn),String)
3318 End Get
3319 Set
3320 Me(Me.tableSchoolInfo.EmailColumn) = value
3321 End Set
3322 End Property
3323
3324 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3325 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3326 Public Property Website() As String
3327 Get
3328 Try
3329 Return CType(Me(Me.tableSchoolInfo.WebsiteColumn),String)
3330 Catch e As Global.System.InvalidCastException
3331 Throw New Global.System.Data.StrongTypingException("The value for column 'Website' in table 'SchoolInfo' is DBNull.", e)
3332 End Try
3333 End Get
3334 Set
3335 Me(Me.tableSchoolInfo.WebsiteColumn) = value
3336 End Set
3337 End Property
3338
3339 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3340 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3341 Public Property Logo() As Byte()
3342 Get
3343 Return CType(Me(Me.tableSchoolInfo.LogoColumn),Byte())
3344 End Get
3345 Set
3346 Me(Me.tableSchoolInfo.LogoColumn) = value
3347 End Set
3348 End Property
3349
3350 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3351 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3352 Public Property RegistrationNo() As String
3353 Get
3354 Try
3355 Return CType(Me(Me.tableSchoolInfo.RegistrationNoColumn),String)
3356 Catch e As Global.System.InvalidCastException
3357 Throw New Global.System.Data.StrongTypingException("The value for column 'RegistrationNo' in table 'SchoolInfo' is DBNull.", e)
3358 End Try
3359 End Get
3360 Set
3361 Me(Me.tableSchoolInfo.RegistrationNoColumn) = value
3362 End Set
3363 End Property
3364
3365 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3366 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3367 Public Property DiseNo() As String
3368 Get
3369 Try
3370 Return CType(Me(Me.tableSchoolInfo.DiseNoColumn),String)
3371 Catch e As Global.System.InvalidCastException
3372 Throw New Global.System.Data.StrongTypingException("The value for column 'DiseNo' in table 'SchoolInfo' is DBNull.", e)
3373 End Try
3374 End Get
3375 Set
3376 Me(Me.tableSchoolInfo.DiseNoColumn) = value
3377 End Set
3378 End Property
3379
3380 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3381 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3382 Public Property IndexNo() As String
3383 Get
3384 Try
3385 Return CType(Me(Me.tableSchoolInfo.IndexNoColumn),String)
3386 Catch e As Global.System.InvalidCastException
3387 Throw New Global.System.Data.StrongTypingException("The value for column 'IndexNo' in table 'SchoolInfo' is DBNull.", e)
3388 End Try
3389 End Get
3390 Set
3391 Me(Me.tableSchoolInfo.IndexNoColumn) = value
3392 End Set
3393 End Property
3394
3395 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3396 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3397 Public Property EstablishedYear() As Integer
3398 Get
3399 Return CType(Me(Me.tableSchoolInfo.EstablishedYearColumn),Integer)
3400 End Get
3401 Set
3402 Me(Me.tableSchoolInfo.EstablishedYearColumn) = value
3403 End Set
3404 End Property
3405
3406 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3407 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3408 Public Property _Class() As String
3409 Get
3410 Try
3411 Return CType(Me(Me.tableSchoolInfo.ClassColumn),String)
3412 Catch e As Global.System.InvalidCastException
3413 Throw New Global.System.Data.StrongTypingException("The value for column 'Class' in table 'SchoolInfo' is DBNull.", e)
3414 End Try
3415 End Get
3416 Set
3417 Me(Me.tableSchoolInfo.ClassColumn) = value
3418 End Set
3419 End Property
3420
3421 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3422 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3423 Public Property SchoolType() As String
3424 Get
3425 Return CType(Me(Me.tableSchoolInfo.SchoolTypeColumn),String)
3426 End Get
3427 Set
3428 Me(Me.tableSchoolInfo.SchoolTypeColumn) = value
3429 End Set
3430 End Property
3431
3432 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3433 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3434 Public Function IsAltContactNoNull() As Boolean
3435 Return Me.IsNull(Me.tableSchoolInfo.AltContactNoColumn)
3436 End Function
3437
3438 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3439 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3440 Public Sub SetAltContactNoNull()
3441 Me(Me.tableSchoolInfo.AltContactNoColumn) = Global.System.Convert.DBNull
3442 End Sub
3443
3444 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3445 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3446 Public Function IsFaxNoNull() As Boolean
3447 Return Me.IsNull(Me.tableSchoolInfo.FaxNoColumn)
3448 End Function
3449
3450 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3451 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3452 Public Sub SetFaxNoNull()
3453 Me(Me.tableSchoolInfo.FaxNoColumn) = Global.System.Convert.DBNull
3454 End Sub
3455
3456 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3457 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3458 Public Function IsWebsiteNull() As Boolean
3459 Return Me.IsNull(Me.tableSchoolInfo.WebsiteColumn)
3460 End Function
3461
3462 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3463 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3464 Public Sub SetWebsiteNull()
3465 Me(Me.tableSchoolInfo.WebsiteColumn) = Global.System.Convert.DBNull
3466 End Sub
3467
3468 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3469 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3470 Public Function IsRegistrationNoNull() As Boolean
3471 Return Me.IsNull(Me.tableSchoolInfo.RegistrationNoColumn)
3472 End Function
3473
3474 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3475 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3476 Public Sub SetRegistrationNoNull()
3477 Me(Me.tableSchoolInfo.RegistrationNoColumn) = Global.System.Convert.DBNull
3478 End Sub
3479
3480 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3481 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3482 Public Function IsDiseNoNull() As Boolean
3483 Return Me.IsNull(Me.tableSchoolInfo.DiseNoColumn)
3484 End Function
3485
3486 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3487 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3488 Public Sub SetDiseNoNull()
3489 Me(Me.tableSchoolInfo.DiseNoColumn) = Global.System.Convert.DBNull
3490 End Sub
3491
3492 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3493 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3494 Public Function IsIndexNoNull() As Boolean
3495 Return Me.IsNull(Me.tableSchoolInfo.IndexNoColumn)
3496 End Function
3497
3498 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3499 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3500 Public Sub SetIndexNoNull()
3501 Me(Me.tableSchoolInfo.IndexNoColumn) = Global.System.Convert.DBNull
3502 End Sub
3503
3504 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3505 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3506 Public Function Is_ClassNull() As Boolean
3507 Return Me.IsNull(Me.tableSchoolInfo.ClassColumn)
3508 End Function
3509
3510 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3511 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3512 Public Sub Set_ClassNull()
3513 Me(Me.tableSchoolInfo.ClassColumn) = Global.System.Convert.DBNull
3514 End Sub
3515
3516 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3517 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3518 Public Function GetCourseFeeRows() As CourseFeeRow()
3519 If (Me.Table.ChildRelations("FK_CourseFee_SchoolInfo") Is Nothing) Then
3520 Return New CourseFeeRow(-1) {}
3521 Else
3522 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseFee_SchoolInfo")),CourseFeeRow())
3523 End If
3524 End Function
3525
3526 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3527 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3528 Public Function GetStudentRows() As StudentRow()
3529 If (Me.Table.ChildRelations("FK_Student_SchoolInfo") Is Nothing) Then
3530 Return New StudentRow(-1) {}
3531 Else
3532 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Student_SchoolInfo")),StudentRow())
3533 End If
3534 End Function
3535 End Class
3536
3537 '''<summary>
3538 '''Represents strongly named DataRow class.
3539 '''</summary>
3540 Partial Public Class StudentRow
3541 Inherits Global.System.Data.DataRow
3542
3543 Private tableStudent As StudentDataTable
3544
3545 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3546 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3547 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
3548 MyBase.New(rb)
3549 Me.tableStudent = CType(Me.Table,StudentDataTable)
3550 End Sub
3551
3552 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3553 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3554 Public Property AdmissionNo() As String
3555 Get
3556 Return CType(Me(Me.tableStudent.AdmissionNoColumn),String)
3557 End Get
3558 Set
3559 Me(Me.tableStudent.AdmissionNoColumn) = value
3560 End Set
3561 End Property
3562
3563 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3564 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3565 Public Property EnrollmentNo() As String
3566 Get
3567 Try
3568 Return CType(Me(Me.tableStudent.EnrollmentNoColumn),String)
3569 Catch e As Global.System.InvalidCastException
3570 Throw New Global.System.Data.StrongTypingException("The value for column 'EnrollmentNo' in table 'Student' is DBNull.", e)
3571 End Try
3572 End Get
3573 Set
3574 Me(Me.tableStudent.EnrollmentNoColumn) = value
3575 End Set
3576 End Property
3577
3578 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3579 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3580 Public Property GRNo() As String
3581 Get
3582 Try
3583 Return CType(Me(Me.tableStudent.GRNoColumn),String)
3584 Catch e As Global.System.InvalidCastException
3585 Throw New Global.System.Data.StrongTypingException("The value for column 'GRNo' in table 'Student' is DBNull.", e)
3586 End Try
3587 End Get
3588 Set
3589 Me(Me.tableStudent.GRNoColumn) = value
3590 End Set
3591 End Property
3592
3593 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3594 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3595 Public Property UID() As String
3596 Get
3597 Try
3598 Return CType(Me(Me.tableStudent.UIDColumn),String)
3599 Catch e As Global.System.InvalidCastException
3600 Throw New Global.System.Data.StrongTypingException("The value for column 'UID' in table 'Student' is DBNull.", e)
3601 End Try
3602 End Get
3603 Set
3604 Me(Me.tableStudent.UIDColumn) = value
3605 End Set
3606 End Property
3607
3608 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3609 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3610 Public Property StudentName() As String
3611 Get
3612 Return CType(Me(Me.tableStudent.StudentNameColumn),String)
3613 End Get
3614 Set
3615 Me(Me.tableStudent.StudentNameColumn) = value
3616 End Set
3617 End Property
3618
3619 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3620 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3621 Public Property FatherName() As String
3622 Get
3623 Return CType(Me(Me.tableStudent.FatherNameColumn),String)
3624 End Get
3625 Set
3626 Me(Me.tableStudent.FatherNameColumn) = value
3627 End Set
3628 End Property
3629
3630 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3631 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3632 Public Property MotherName() As String
3633 Get
3634 Return CType(Me(Me.tableStudent.MotherNameColumn),String)
3635 End Get
3636 Set
3637 Me(Me.tableStudent.MotherNameColumn) = value
3638 End Set
3639 End Property
3640
3641 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3642 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3643 Public Property FatherCN() As String
3644 Get
3645 Try
3646 Return CType(Me(Me.tableStudent.FatherCNColumn),String)
3647 Catch e As Global.System.InvalidCastException
3648 Throw New Global.System.Data.StrongTypingException("The value for column 'FatherCN' in table 'Student' is DBNull.", e)
3649 End Try
3650 End Get
3651 Set
3652 Me(Me.tableStudent.FatherCNColumn) = value
3653 End Set
3654 End Property
3655
3656 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3657 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3658 Public Property PermanentAddress() As String
3659 Get
3660 Return CType(Me(Me.tableStudent.PermanentAddressColumn),String)
3661 End Get
3662 Set
3663 Me(Me.tableStudent.PermanentAddressColumn) = value
3664 End Set
3665 End Property
3666
3667 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3668 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3669 Public Property TemporaryAddress() As String
3670 Get
3671 Return CType(Me(Me.tableStudent.TemporaryAddressColumn),String)
3672 End Get
3673 Set
3674 Me(Me.tableStudent.TemporaryAddressColumn) = value
3675 End Set
3676 End Property
3677
3678 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3679 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3680 Public Property ContactNo() As String
3681 Get
3682 Return CType(Me(Me.tableStudent.ContactNoColumn),String)
3683 End Get
3684 Set
3685 Me(Me.tableStudent.ContactNoColumn) = value
3686 End Set
3687 End Property
3688
3689 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3690 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3691 Public Property EmailID() As String
3692 Get
3693 Try
3694 Return CType(Me(Me.tableStudent.EmailIDColumn),String)
3695 Catch e As Global.System.InvalidCastException
3696 Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Student' is DBNull.", e)
3697 End Try
3698 End Get
3699 Set
3700 Me(Me.tableStudent.EmailIDColumn) = value
3701 End Set
3702 End Property
3703
3704 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3705 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3706 Public Property DOB() As Date
3707 Get
3708 Return CType(Me(Me.tableStudent.DOBColumn),Date)
3709 End Get
3710 Set
3711 Me(Me.tableStudent.DOBColumn) = value
3712 End Set
3713 End Property
3714
3715 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3716 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3717 Public Property Gender() As String
3718 Get
3719 Return CType(Me(Me.tableStudent.GenderColumn),String)
3720 End Get
3721 Set
3722 Me(Me.tableStudent.GenderColumn) = value
3723 End Set
3724 End Property
3725
3726 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3727 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3728 Public Property AdmissionDate() As Date
3729 Get
3730 Return CType(Me(Me.tableStudent.AdmissionDateColumn),Date)
3731 End Get
3732 Set
3733 Me(Me.tableStudent.AdmissionDateColumn) = value
3734 End Set
3735 End Property
3736
3737 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3738 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3739 Public Property Session() As String
3740 Get
3741 Return CType(Me(Me.tableStudent.SessionColumn),String)
3742 End Get
3743 Set
3744 Me(Me.tableStudent.SessionColumn) = value
3745 End Set
3746 End Property
3747
3748 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3749 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3750 Public Property Caste() As String
3751 Get
3752 Return CType(Me(Me.tableStudent.CasteColumn),String)
3753 End Get
3754 Set
3755 Me(Me.tableStudent.CasteColumn) = value
3756 End Set
3757 End Property
3758
3759 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3760 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3761 Public Property Religion() As String
3762 Get
3763 Return CType(Me(Me.tableStudent.ReligionColumn),String)
3764 End Get
3765 Set
3766 Me(Me.tableStudent.ReligionColumn) = value
3767 End Set
3768 End Property
3769
3770 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3771 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3772 Public Property SectionID() As Integer
3773 Get
3774 Return CType(Me(Me.tableStudent.SectionIDColumn),Integer)
3775 End Get
3776 Set
3777 Me(Me.tableStudent.SectionIDColumn) = value
3778 End Set
3779 End Property
3780
3781 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3782 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3783 Public Property Photo() As Byte()
3784 Get
3785 Return CType(Me(Me.tableStudent.PhotoColumn),Byte())
3786 End Get
3787 Set
3788 Me(Me.tableStudent.PhotoColumn) = value
3789 End Set
3790 End Property
3791
3792 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3793 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3794 Public Property Nationality() As String
3795 Get
3796 Try
3797 Return CType(Me(Me.tableStudent.NationalityColumn),String)
3798 Catch e As Global.System.InvalidCastException
3799 Throw New Global.System.Data.StrongTypingException("The value for column 'Nationality' in table 'Student' is DBNull.", e)
3800 End Try
3801 End Get
3802 Set
3803 Me(Me.tableStudent.NationalityColumn) = value
3804 End Set
3805 End Property
3806
3807 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3808 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3809 Public Property SchoolID() As Integer
3810 Get
3811 Return CType(Me(Me.tableStudent.SchoolIDColumn),Integer)
3812 End Get
3813 Set
3814 Me(Me.tableStudent.SchoolIDColumn) = value
3815 End Set
3816 End Property
3817
3818 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3819 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3820 Public Property LastSchoolAttended() As String
3821 Get
3822 Try
3823 Return CType(Me(Me.tableStudent.LastSchoolAttendedColumn),String)
3824 Catch e As Global.System.InvalidCastException
3825 Throw New Global.System.Data.StrongTypingException("The value for column 'LastSchoolAttended' in table 'Student' is DBNull.", e)
3826 End Try
3827 End Get
3828 Set
3829 Me(Me.tableStudent.LastSchoolAttendedColumn) = value
3830 End Set
3831 End Property
3832
3833 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3834 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3835 Public Property Result() As String
3836 Get
3837 Try
3838 Return CType(Me(Me.tableStudent.ResultColumn),String)
3839 Catch e As Global.System.InvalidCastException
3840 Throw New Global.System.Data.StrongTypingException("The value for column 'Result' in table 'Student' is DBNull.", e)
3841 End Try
3842 End Get
3843 Set
3844 Me(Me.tableStudent.ResultColumn) = value
3845 End Set
3846 End Property
3847
3848 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3849 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3850 Public Property PassPercentage() As String
3851 Get
3852 Try
3853 Return CType(Me(Me.tableStudent.PassPercentageColumn),String)
3854 Catch e As Global.System.InvalidCastException
3855 Throw New Global.System.Data.StrongTypingException("The value for column 'PassPercentage' in table 'Student' is DBNull.", e)
3856 End Try
3857 End Get
3858 Set
3859 Me(Me.tableStudent.PassPercentageColumn) = value
3860 End Set
3861 End Property
3862
3863 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3864 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3865 Public Property Status() As String
3866 Get
3867 Return CType(Me(Me.tableStudent.StatusColumn),String)
3868 End Get
3869 Set
3870 Me(Me.tableStudent.StatusColumn) = value
3871 End Set
3872 End Property
3873
3874 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3875 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3876 Public Property SchoolInfoRow() As SchoolInfoRow
3877 Get
3878 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Student_SchoolInfo")),SchoolInfoRow)
3879 End Get
3880 Set
3881 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Student_SchoolInfo"))
3882 End Set
3883 End Property
3884
3885 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3886 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3887 Public Function IsEnrollmentNoNull() As Boolean
3888 Return Me.IsNull(Me.tableStudent.EnrollmentNoColumn)
3889 End Function
3890
3891 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3892 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3893 Public Sub SetEnrollmentNoNull()
3894 Me(Me.tableStudent.EnrollmentNoColumn) = Global.System.Convert.DBNull
3895 End Sub
3896
3897 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3898 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3899 Public Function IsGRNoNull() As Boolean
3900 Return Me.IsNull(Me.tableStudent.GRNoColumn)
3901 End Function
3902
3903 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3904 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3905 Public Sub SetGRNoNull()
3906 Me(Me.tableStudent.GRNoColumn) = Global.System.Convert.DBNull
3907 End Sub
3908
3909 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3910 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3911 Public Function IsUIDNull() As Boolean
3912 Return Me.IsNull(Me.tableStudent.UIDColumn)
3913 End Function
3914
3915 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3916 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3917 Public Sub SetUIDNull()
3918 Me(Me.tableStudent.UIDColumn) = Global.System.Convert.DBNull
3919 End Sub
3920
3921 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3922 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3923 Public Function IsFatherCNNull() As Boolean
3924 Return Me.IsNull(Me.tableStudent.FatherCNColumn)
3925 End Function
3926
3927 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3928 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3929 Public Sub SetFatherCNNull()
3930 Me(Me.tableStudent.FatherCNColumn) = Global.System.Convert.DBNull
3931 End Sub
3932
3933 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3934 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3935 Public Function IsEmailIDNull() As Boolean
3936 Return Me.IsNull(Me.tableStudent.EmailIDColumn)
3937 End Function
3938
3939 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3940 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3941 Public Sub SetEmailIDNull()
3942 Me(Me.tableStudent.EmailIDColumn) = Global.System.Convert.DBNull
3943 End Sub
3944
3945 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3946 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3947 Public Function IsNationalityNull() As Boolean
3948 Return Me.IsNull(Me.tableStudent.NationalityColumn)
3949 End Function
3950
3951 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3952 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3953 Public Sub SetNationalityNull()
3954 Me(Me.tableStudent.NationalityColumn) = Global.System.Convert.DBNull
3955 End Sub
3956
3957 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3958 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3959 Public Function IsLastSchoolAttendedNull() As Boolean
3960 Return Me.IsNull(Me.tableStudent.LastSchoolAttendedColumn)
3961 End Function
3962
3963 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3964 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3965 Public Sub SetLastSchoolAttendedNull()
3966 Me(Me.tableStudent.LastSchoolAttendedColumn) = Global.System.Convert.DBNull
3967 End Sub
3968
3969 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3970 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3971 Public Function IsResultNull() As Boolean
3972 Return Me.IsNull(Me.tableStudent.ResultColumn)
3973 End Function
3974
3975 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3976 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3977 Public Sub SetResultNull()
3978 Me(Me.tableStudent.ResultColumn) = Global.System.Convert.DBNull
3979 End Sub
3980
3981 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3982 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3983 Public Function IsPassPercentageNull() As Boolean
3984 Return Me.IsNull(Me.tableStudent.PassPercentageColumn)
3985 End Function
3986
3987 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3988 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3989 Public Sub SetPassPercentageNull()
3990 Me(Me.tableStudent.PassPercentageColumn) = Global.System.Convert.DBNull
3991 End Sub
3992
3993 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3994 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3995 Public Function GetCourseFeePaymentRows() As CourseFeePaymentRow()
3996 If (Me.Table.ChildRelations("FK_CourseFeePayment_Student") Is Nothing) Then
3997 Return New CourseFeePaymentRow(-1) {}
3998 Else
3999 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_CourseFeePayment_Student")),CourseFeePaymentRow())
4000 End If
4001 End Function
4002 End Class
4003
4004 '''<summary>
4005 '''Row event argument class
4006 '''</summary>
4007 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4008 Public Class ClassRowChangeEvent
4009 Inherits Global.System.EventArgs
4010
4011 Private eventRow As ClassRow
4012
4013 Private eventAction As Global.System.Data.DataRowAction
4014
4015 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4016 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4017 Public Sub New(ByVal row As ClassRow, ByVal action As Global.System.Data.DataRowAction)
4018 MyBase.New
4019 Me.eventRow = row
4020 Me.eventAction = action
4021 End Sub
4022
4023 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4024 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4025 Public ReadOnly Property Row() As ClassRow
4026 Get
4027 Return Me.eventRow
4028 End Get
4029 End Property
4030
4031 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4032 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4033 Public ReadOnly Property Action() As Global.System.Data.DataRowAction
4034 Get
4035 Return Me.eventAction
4036 End Get
4037 End Property
4038 End Class
4039
4040 '''<summary>
4041 '''Row event argument class
4042 '''</summary>
4043 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4044 Public Class CourseFeeRowChangeEvent
4045 Inherits Global.System.EventArgs
4046
4047 Private eventRow As CourseFeeRow
4048
4049 Private eventAction As Global.System.Data.DataRowAction
4050
4051 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4052 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4053 Public Sub New(ByVal row As CourseFeeRow, ByVal action As Global.System.Data.DataRowAction)
4054 MyBase.New
4055 Me.eventRow = row
4056 Me.eventAction = action
4057 End Sub
4058
4059 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4060 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4061 Public ReadOnly Property Row() As CourseFeeRow
4062 Get
4063 Return Me.eventRow
4064 End Get
4065 End Property
4066
4067 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4068 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4069 Public ReadOnly Property Action() As Global.System.Data.DataRowAction
4070 Get
4071 Return Me.eventAction
4072 End Get
4073 End Property
4074 End Class
4075
4076 '''<summary>
4077 '''Row event argument class
4078 '''</summary>
4079 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4080 Public Class CourseFeePaymentRowChangeEvent
4081 Inherits Global.System.EventArgs
4082
4083 Private eventRow As CourseFeePaymentRow
4084
4085 Private eventAction As Global.System.Data.DataRowAction
4086
4087 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4088 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4089 Public Sub New(ByVal row As CourseFeePaymentRow, ByVal action As Global.System.Data.DataRowAction)
4090 MyBase.New
4091 Me.eventRow = row
4092 Me.eventAction = action
4093 End Sub
4094
4095 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4096 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4097 Public ReadOnly Property Row() As CourseFeePaymentRow
4098 Get
4099 Return Me.eventRow
4100 End Get
4101 End Property
4102
4103 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4104 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4105 Public ReadOnly Property Action() As Global.System.Data.DataRowAction
4106 Get
4107 Return Me.eventAction
4108 End Get
4109 End Property
4110 End Class
4111
4112 '''<summary>
4113 '''Row event argument class
4114 '''</summary>
4115 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4116 Public Class SchoolInfoRowChangeEvent
4117 Inherits Global.System.EventArgs
4118
4119 Private eventRow As SchoolInfoRow
4120
4121 Private eventAction As Global.System.Data.DataRowAction
4122
4123 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4124 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4125 Public Sub New(ByVal row As SchoolInfoRow, ByVal action As Global.System.Data.DataRowAction)
4126 MyBase.New
4127 Me.eventRow = row
4128 Me.eventAction = action
4129 End Sub
4130
4131 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4132 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4133 Public ReadOnly Property Row() As SchoolInfoRow
4134 Get
4135 Return Me.eventRow
4136 End Get
4137 End Property
4138
4139 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4140 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4141 Public ReadOnly Property Action() As Global.System.Data.DataRowAction
4142 Get
4143 Return Me.eventAction
4144 End Get
4145 End Property
4146 End Class
4147
4148 '''<summary>
4149 '''Row event argument class
4150 '''</summary>
4151 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4152 Public Class StudentRowChangeEvent
4153 Inherits Global.System.EventArgs
4154
4155 Private eventRow As StudentRow
4156
4157 Private eventAction As Global.System.Data.DataRowAction
4158
4159 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4160 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4161 Public Sub New(ByVal row As StudentRow, ByVal action As Global.System.Data.DataRowAction)
4162 MyBase.New
4163 Me.eventRow = row
4164 Me.eventAction = action
4165 End Sub
4166
4167 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4168 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4169 Public ReadOnly Property Row() As StudentRow
4170 Get
4171 Return Me.eventRow
4172 End Get
4173 End Property
4174
4175 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4176 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4177 Public ReadOnly Property Action() As Global.System.Data.DataRowAction
4178 Get
4179 Return Me.eventAction
4180 End Get
4181 End Property
4182 End Class
4183 End Class
4184
4185 Namespace Class_DBDataSetTableAdapters
4186
4187 '''<summary>
4188 '''Represents the connection and commands used to retrieve and save data.
4189 '''</summary>
4190 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
4191 Global.System.ComponentModel.ToolboxItem(true), _
4192 Global.System.ComponentModel.DataObjectAttribute(true), _
4193 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
4194 ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
4195 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4196 Partial Public Class ClassTableAdapter
4197 Inherits Global.System.ComponentModel.Component
4198
4199 Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
4200
4201 Private _connection As Global.System.Data.SqlClient.SqlConnection
4202
4203 Private _transaction As Global.System.Data.SqlClient.SqlTransaction
4204
4205 Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
4206
4207 Private _clearBeforeFill As Boolean
4208
4209 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4210 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4211 Public Sub New()
4212 MyBase.New
4213 Me.ClearBeforeFill = true
4214 End Sub
4215
4216 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4217 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4218 Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
4219 Get
4220 If (Me._adapter Is Nothing) Then
4221 Me.InitAdapter
4222 End If
4223 Return Me._adapter
4224 End Get
4225 End Property
4226
4227 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4228 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4229 Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
4230 Get
4231 If (Me._connection Is Nothing) Then
4232 Me.InitConnection
4233 End If
4234 Return Me._connection
4235 End Get
4236 Set
4237 Me._connection = value
4238 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
4239 Me.Adapter.InsertCommand.Connection = value
4240 End If
4241 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
4242 Me.Adapter.DeleteCommand.Connection = value
4243 End If
4244 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
4245 Me.Adapter.UpdateCommand.Connection = value
4246 End If
4247 Dim i As Integer = 0
4248 Do While (i < Me.CommandCollection.Length)
4249 If (Not (Me.CommandCollection(i)) Is Nothing) Then
4250 CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
4251 End If
4252 i = (i + 1)
4253 Loop
4254 End Set
4255 End Property
4256
4257 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4258 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4259 Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
4260 Get
4261 Return Me._transaction
4262 End Get
4263 Set
4264 Me._transaction = value
4265 Dim i As Integer = 0
4266 Do While (i < Me.CommandCollection.Length)
4267 Me.CommandCollection(i).Transaction = Me._transaction
4268 i = (i + 1)
4269 Loop
4270 If ((Not (Me.Adapter) Is Nothing) _
4271 AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
4272 Me.Adapter.DeleteCommand.Transaction = Me._transaction
4273 End If
4274 If ((Not (Me.Adapter) Is Nothing) _
4275 AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
4276 Me.Adapter.InsertCommand.Transaction = Me._transaction
4277 End If
4278 If ((Not (Me.Adapter) Is Nothing) _
4279 AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
4280 Me.Adapter.UpdateCommand.Transaction = Me._transaction
4281 End If
4282 End Set
4283 End Property
4284
4285 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4286 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4287 Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
4288 Get
4289 If (Me._commandCollection Is Nothing) Then
4290 Me.InitCommandCollection
4291 End If
4292 Return Me._commandCollection
4293 End Get
4294 End Property
4295
4296 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4297 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4298 Public Property ClearBeforeFill() As Boolean
4299 Get
4300 Return Me._clearBeforeFill
4301 End Get
4302 Set
4303 Me._clearBeforeFill = value
4304 End Set
4305 End Property
4306
4307 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4308 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4309 Private Sub InitAdapter()
4310 Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
4311 Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
4312 tableMapping.SourceTable = "Table"
4313 tableMapping.DataSetTable = "Class"
4314 tableMapping.ColumnMappings.Add("ClassName", "ClassName")
4315 tableMapping.ColumnMappings.Add("ClassType", "ClassType")
4316 Me._adapter.TableMappings.Add(tableMapping)
4317 Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
4318 Me._adapter.DeleteCommand.Connection = Me.Connection
4319 Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Class] WHERE (([ClassName] = @Original_ClassName) AND ([ClassT"& _
4320 "ype] = @Original_ClassType))"
4321 Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
4322 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4323 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4324 Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
4325 Me._adapter.InsertCommand.Connection = Me.Connection
4326 Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Class] ([ClassName], [ClassType]) VALUES (@ClassName, @ClassTy"& _
4327 "pe);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ClassName, ClassType FROM Class WHERE (ClassName = @ClassName)"
4328 Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
4329 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4330 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4331 Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
4332 Me._adapter.UpdateCommand.Connection = Me.Connection
4333 Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Class] SET [ClassName] = @ClassName, [ClassType] = @ClassType WHERE"& _
4334 " (([ClassName] = @Original_ClassName) AND ([ClassType] = @Original_ClassType));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ClassName, ClassType FROM Class WHERE (ClassName = @ClassName)"
4335 Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
4336 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4337 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4338 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4339 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4340 End Sub
4341
4342 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4343 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4344 Private Sub InitConnection()
4345 Me._connection = New Global.System.Data.SqlClient.SqlConnection()
4346 Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
4347 End Sub
4348
4349 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4350 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4351 Private Sub InitCommandCollection()
4352 Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
4353 Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
4354 Me._commandCollection(0).Connection = Me.Connection
4355 Me._commandCollection(0).CommandText = "SELECT ClassName, ClassType FROM dbo.Class"
4356 Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
4357 End Sub
4358
4359 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4360 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4361 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4362 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
4363 Public Overloads Overridable Function Fill(ByVal dataTable As Class_DBDataSet.ClassDataTable) As Integer
4364 Me.Adapter.SelectCommand = Me.CommandCollection(0)
4365 If (Me.ClearBeforeFill = true) Then
4366 dataTable.Clear
4367 End If
4368 Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
4369 Return returnValue
4370 End Function
4371
4372 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4373 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4374 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4375 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
4376 Public Overloads Overridable Function GetData() As Class_DBDataSet.ClassDataTable
4377 Me.Adapter.SelectCommand = Me.CommandCollection(0)
4378 Dim dataTable As Class_DBDataSet.ClassDataTable = New Class_DBDataSet.ClassDataTable()
4379 Me.Adapter.Fill(dataTable)
4380 Return dataTable
4381 End Function
4382
4383 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4384 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4385 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4386 Public Overloads Overridable Function Update(ByVal dataTable As Class_DBDataSet.ClassDataTable) As Integer
4387 Return Me.Adapter.Update(dataTable)
4388 End Function
4389
4390 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4391 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4392 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4393 Public Overloads Overridable Function Update(ByVal dataSet As Class_DBDataSet) As Integer
4394 Return Me.Adapter.Update(dataSet, "Class")
4395 End Function
4396
4397 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4398 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4399 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4400 Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
4401 Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
4402 End Function
4403
4404 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4405 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4406 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4407 Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
4408 Return Me.Adapter.Update(dataRows)
4409 End Function
4410
4411 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4412 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4413 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4414 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
4415 Public Overloads Overridable Function Delete(ByVal Original_ClassName As String, ByVal Original_ClassType As String) As Integer
4416 If (Original_ClassName Is Nothing) Then
4417 Throw New Global.System.ArgumentNullException("Original_ClassName")
4418 Else
4419 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ClassName,String)
4420 End If
4421 If (Original_ClassType Is Nothing) Then
4422 Throw New Global.System.ArgumentNullException("Original_ClassType")
4423 Else
4424 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ClassType,String)
4425 End If
4426 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
4427 If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
4428 <> Global.System.Data.ConnectionState.Open) Then
4429 Me.Adapter.DeleteCommand.Connection.Open
4430 End If
4431 Try
4432 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
4433 Return returnValue
4434 Finally
4435 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
4436 Me.Adapter.DeleteCommand.Connection.Close
4437 End If
4438 End Try
4439 End Function
4440
4441 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4442 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4443 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4444 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
4445 Public Overloads Overridable Function Insert(ByVal ClassName As String, ByVal ClassType As String) As Integer
4446 If (ClassName Is Nothing) Then
4447 Throw New Global.System.ArgumentNullException("ClassName")
4448 Else
4449 Me.Adapter.InsertCommand.Parameters(0).Value = CType(ClassName,String)
4450 End If
4451 If (ClassType Is Nothing) Then
4452 Throw New Global.System.ArgumentNullException("ClassType")
4453 Else
4454 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ClassType,String)
4455 End If
4456 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
4457 If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
4458 <> Global.System.Data.ConnectionState.Open) Then
4459 Me.Adapter.InsertCommand.Connection.Open
4460 End If
4461 Try
4462 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
4463 Return returnValue
4464 Finally
4465 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
4466 Me.Adapter.InsertCommand.Connection.Close
4467 End If
4468 End Try
4469 End Function
4470
4471 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4472 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4473 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4474 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
4475 Public Overloads Overridable Function Update(ByVal ClassName As String, ByVal ClassType As String, ByVal Original_ClassName As String, ByVal Original_ClassType As String) As Integer
4476 If (ClassName Is Nothing) Then
4477 Throw New Global.System.ArgumentNullException("ClassName")
4478 Else
4479 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ClassName,String)
4480 End If
4481 If (ClassType Is Nothing) Then
4482 Throw New Global.System.ArgumentNullException("ClassType")
4483 Else
4484 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ClassType,String)
4485 End If
4486 If (Original_ClassName Is Nothing) Then
4487 Throw New Global.System.ArgumentNullException("Original_ClassName")
4488 Else
4489 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ClassName,String)
4490 End If
4491 If (Original_ClassType Is Nothing) Then
4492 Throw New Global.System.ArgumentNullException("Original_ClassType")
4493 Else
4494 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ClassType,String)
4495 End If
4496 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
4497 If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
4498 <> Global.System.Data.ConnectionState.Open) Then
4499 Me.Adapter.UpdateCommand.Connection.Open
4500 End If
4501 Try
4502 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
4503 Return returnValue
4504 Finally
4505 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
4506 Me.Adapter.UpdateCommand.Connection.Close
4507 End If
4508 End Try
4509 End Function
4510
4511 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4512 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4513 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4514 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
4515 Public Overloads Overridable Function Update(ByVal ClassType As String, ByVal Original_ClassName As String, ByVal Original_ClassType As String) As Integer
4516 Return Me.Update(Original_ClassName, ClassType, Original_ClassName, Original_ClassType)
4517 End Function
4518 End Class
4519
4520 '''<summary>
4521 '''Represents the connection and commands used to retrieve and save data.
4522 '''</summary>
4523 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
4524 Global.System.ComponentModel.ToolboxItem(true), _
4525 Global.System.ComponentModel.DataObjectAttribute(true), _
4526 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
4527 ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
4528 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4529 Partial Public Class CourseFeeTableAdapter
4530 Inherits Global.System.ComponentModel.Component
4531
4532 Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
4533
4534 Private _connection As Global.System.Data.SqlClient.SqlConnection
4535
4536 Private _transaction As Global.System.Data.SqlClient.SqlTransaction
4537
4538 Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
4539
4540 Private _clearBeforeFill As Boolean
4541
4542 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4543 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4544 Public Sub New()
4545 MyBase.New
4546 Me.ClearBeforeFill = true
4547 End Sub
4548
4549 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4550 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4551 Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
4552 Get
4553 If (Me._adapter Is Nothing) Then
4554 Me.InitAdapter
4555 End If
4556 Return Me._adapter
4557 End Get
4558 End Property
4559
4560 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4561 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4562 Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
4563 Get
4564 If (Me._connection Is Nothing) Then
4565 Me.InitConnection
4566 End If
4567 Return Me._connection
4568 End Get
4569 Set
4570 Me._connection = value
4571 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
4572 Me.Adapter.InsertCommand.Connection = value
4573 End If
4574 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
4575 Me.Adapter.DeleteCommand.Connection = value
4576 End If
4577 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
4578 Me.Adapter.UpdateCommand.Connection = value
4579 End If
4580 Dim i As Integer = 0
4581 Do While (i < Me.CommandCollection.Length)
4582 If (Not (Me.CommandCollection(i)) Is Nothing) Then
4583 CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
4584 End If
4585 i = (i + 1)
4586 Loop
4587 End Set
4588 End Property
4589
4590 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4591 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4592 Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
4593 Get
4594 Return Me._transaction
4595 End Get
4596 Set
4597 Me._transaction = value
4598 Dim i As Integer = 0
4599 Do While (i < Me.CommandCollection.Length)
4600 Me.CommandCollection(i).Transaction = Me._transaction
4601 i = (i + 1)
4602 Loop
4603 If ((Not (Me.Adapter) Is Nothing) _
4604 AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
4605 Me.Adapter.DeleteCommand.Transaction = Me._transaction
4606 End If
4607 If ((Not (Me.Adapter) Is Nothing) _
4608 AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
4609 Me.Adapter.InsertCommand.Transaction = Me._transaction
4610 End If
4611 If ((Not (Me.Adapter) Is Nothing) _
4612 AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
4613 Me.Adapter.UpdateCommand.Transaction = Me._transaction
4614 End If
4615 End Set
4616 End Property
4617
4618 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4619 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4620 Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
4621 Get
4622 If (Me._commandCollection Is Nothing) Then
4623 Me.InitCommandCollection
4624 End If
4625 Return Me._commandCollection
4626 End Get
4627 End Property
4628
4629 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4630 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4631 Public Property ClearBeforeFill() As Boolean
4632 Get
4633 Return Me._clearBeforeFill
4634 End Get
4635 Set
4636 Me._clearBeforeFill = value
4637 End Set
4638 End Property
4639
4640 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4641 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4642 Private Sub InitAdapter()
4643 Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
4644 Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
4645 tableMapping.SourceTable = "Table"
4646 tableMapping.DataSetTable = "CourseFee"
4647 tableMapping.ColumnMappings.Add("C_ID", "C_ID")
4648 tableMapping.ColumnMappings.Add("SchoolID", "SchoolID")
4649 tableMapping.ColumnMappings.Add("Class", "Class")
4650 tableMapping.ColumnMappings.Add("FeeName", "FeeName")
4651 tableMapping.ColumnMappings.Add("Semester", "Semester")
4652 tableMapping.ColumnMappings.Add("Fee", "Fee")
4653 Me._adapter.TableMappings.Add(tableMapping)
4654 Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
4655 Me._adapter.DeleteCommand.Connection = Me.Connection
4656 Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[CourseFee] WHERE (([C_ID] = @Original_C_ID) AND ([SchoolID] = "& _
4657 "@Original_SchoolID) AND ([Class] = @Original_Class) AND ([FeeName] = @Original_F"& _
4658 "eeName) AND ([Semester] = @Original_Semester) AND ([Fee] = @Original_Fee))"
4659 Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
4660 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_C_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4661 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4662 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4663 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4664 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4665 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4666 Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
4667 Me._adapter.InsertCommand.Connection = Me.Connection
4668 Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[CourseFee] ([C_ID], [SchoolID], [Class], [FeeName], [Semester]"& _
4669 ", [Fee]) VALUES (@C_ID, @SchoolID, @Class, @FeeName, @Semester, @Fee);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT C"& _
4670 "_ID, SchoolID, Class, FeeName, Semester, Fee FROM CourseFee WHERE (C_ID = @C_ID)"& _
4671 ""
4672 Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
4673 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@C_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4674 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4675 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4676 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4677 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4678 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4679 Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
4680 Me._adapter.UpdateCommand.Connection = Me.Connection
4681 Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[CourseFee] SET [C_ID] = @C_ID, [SchoolID] = @SchoolID, [Class] = @C"& _
4682 "lass, [FeeName] = @FeeName, [Semester] = @Semester, [Fee] = @Fee WHERE (([C_ID] "& _
4683 "= @Original_C_ID) AND ([SchoolID] = @Original_SchoolID) AND ([Class] = @Original"& _
4684 "_Class) AND ([FeeName] = @Original_FeeName) AND ([Semester] = @Original_Semester"& _
4685 ") AND ([Fee] = @Original_Fee));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT C_ID, SchoolID, Class, FeeName, Semester"& _
4686 ", Fee FROM CourseFee WHERE (C_ID = @C_ID)"
4687 Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
4688 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@C_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4689 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4690 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4691 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4692 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4693 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
4694 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_C_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "C_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4695 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4696 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4697 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FeeName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FeeName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4698 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4699 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
4700 End Sub
4701
4702 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4703 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4704 Private Sub InitConnection()
4705 Me._connection = New Global.System.Data.SqlClient.SqlConnection()
4706 Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
4707 End Sub
4708
4709 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4710 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4711 Private Sub InitCommandCollection()
4712 Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
4713 Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
4714 Me._commandCollection(0).Connection = Me.Connection
4715 Me._commandCollection(0).CommandText = "SELECT C_ID, SchoolID, Class, FeeName, Semester, Fee FROM dbo.CourseFee"
4716 Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
4717 End Sub
4718
4719 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4720 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4721 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4722 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
4723 Public Overloads Overridable Function Fill(ByVal dataTable As Class_DBDataSet.CourseFeeDataTable) As Integer
4724 Me.Adapter.SelectCommand = Me.CommandCollection(0)
4725 If (Me.ClearBeforeFill = true) Then
4726 dataTable.Clear
4727 End If
4728 Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
4729 Return returnValue
4730 End Function
4731
4732 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4733 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4734 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4735 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
4736 Public Overloads Overridable Function GetData() As Class_DBDataSet.CourseFeeDataTable
4737 Me.Adapter.SelectCommand = Me.CommandCollection(0)
4738 Dim dataTable As Class_DBDataSet.CourseFeeDataTable = New Class_DBDataSet.CourseFeeDataTable()
4739 Me.Adapter.Fill(dataTable)
4740 Return dataTable
4741 End Function
4742
4743 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4744 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4745 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4746 Public Overloads Overridable Function Update(ByVal dataTable As Class_DBDataSet.CourseFeeDataTable) As Integer
4747 Return Me.Adapter.Update(dataTable)
4748 End Function
4749
4750 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4751 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4752 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4753 Public Overloads Overridable Function Update(ByVal dataSet As Class_DBDataSet) As Integer
4754 Return Me.Adapter.Update(dataSet, "CourseFee")
4755 End Function
4756
4757 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4758 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4759 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4760 Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
4761 Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
4762 End Function
4763
4764 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4765 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4766 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4767 Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
4768 Return Me.Adapter.Update(dataRows)
4769 End Function
4770
4771 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4772 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4773 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4774 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
4775 Public Overloads Overridable Function Delete(ByVal Original_C_ID As Integer, ByVal Original_SchoolID As Integer, ByVal Original_Class As String, ByVal Original_FeeName As String, ByVal Original_Semester As String, ByVal Original_Fee As Decimal) As Integer
4776 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_C_ID,Integer)
4777 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SchoolID,Integer)
4778 If (Original_Class Is Nothing) Then
4779 Throw New Global.System.ArgumentNullException("Original_Class")
4780 Else
4781 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Class,String)
4782 End If
4783 If (Original_FeeName Is Nothing) Then
4784 Throw New Global.System.ArgumentNullException("Original_FeeName")
4785 Else
4786 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_FeeName,String)
4787 End If
4788 If (Original_Semester Is Nothing) Then
4789 Throw New Global.System.ArgumentNullException("Original_Semester")
4790 Else
4791 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Semester,String)
4792 End If
4793 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Fee,Decimal)
4794 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
4795 If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
4796 <> Global.System.Data.ConnectionState.Open) Then
4797 Me.Adapter.DeleteCommand.Connection.Open
4798 End If
4799 Try
4800 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
4801 Return returnValue
4802 Finally
4803 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
4804 Me.Adapter.DeleteCommand.Connection.Close
4805 End If
4806 End Try
4807 End Function
4808
4809 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4810 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4811 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4812 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
4813 Public Overloads Overridable Function Insert(ByVal C_ID As Integer, ByVal SchoolID As Integer, ByVal _Class As String, ByVal FeeName As String, ByVal Semester As String, ByVal Fee As Decimal) As Integer
4814 Me.Adapter.InsertCommand.Parameters(0).Value = CType(C_ID,Integer)
4815 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SchoolID,Integer)
4816 If (_Class Is Nothing) Then
4817 Throw New Global.System.ArgumentNullException("_Class")
4818 Else
4819 Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Class,String)
4820 End If
4821 If (FeeName Is Nothing) Then
4822 Throw New Global.System.ArgumentNullException("FeeName")
4823 Else
4824 Me.Adapter.InsertCommand.Parameters(3).Value = CType(FeeName,String)
4825 End If
4826 If (Semester Is Nothing) Then
4827 Throw New Global.System.ArgumentNullException("Semester")
4828 Else
4829 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Semester,String)
4830 End If
4831 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Fee,Decimal)
4832 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
4833 If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
4834 <> Global.System.Data.ConnectionState.Open) Then
4835 Me.Adapter.InsertCommand.Connection.Open
4836 End If
4837 Try
4838 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
4839 Return returnValue
4840 Finally
4841 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
4842 Me.Adapter.InsertCommand.Connection.Close
4843 End If
4844 End Try
4845 End Function
4846
4847 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4848 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4849 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4850 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
4851 Public Overloads Overridable Function Update(ByVal C_ID As Integer, ByVal SchoolID As Integer, ByVal _Class As String, ByVal FeeName As String, ByVal Semester As String, ByVal Fee As Decimal, ByVal Original_C_ID As Integer, ByVal Original_SchoolID As Integer, ByVal Original_Class As String, ByVal Original_FeeName As String, ByVal Original_Semester As String, ByVal Original_Fee As Decimal) As Integer
4852 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(C_ID,Integer)
4853 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SchoolID,Integer)
4854 If (_Class Is Nothing) Then
4855 Throw New Global.System.ArgumentNullException("_Class")
4856 Else
4857 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Class,String)
4858 End If
4859 If (FeeName Is Nothing) Then
4860 Throw New Global.System.ArgumentNullException("FeeName")
4861 Else
4862 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FeeName,String)
4863 End If
4864 If (Semester Is Nothing) Then
4865 Throw New Global.System.ArgumentNullException("Semester")
4866 Else
4867 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Semester,String)
4868 End If
4869 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Fee,Decimal)
4870 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_C_ID,Integer)
4871 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_SchoolID,Integer)
4872 If (Original_Class Is Nothing) Then
4873 Throw New Global.System.ArgumentNullException("Original_Class")
4874 Else
4875 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Class,String)
4876 End If
4877 If (Original_FeeName Is Nothing) Then
4878 Throw New Global.System.ArgumentNullException("Original_FeeName")
4879 Else
4880 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_FeeName,String)
4881 End If
4882 If (Original_Semester Is Nothing) Then
4883 Throw New Global.System.ArgumentNullException("Original_Semester")
4884 Else
4885 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Semester,String)
4886 End If
4887 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Fee,Decimal)
4888 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
4889 If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
4890 <> Global.System.Data.ConnectionState.Open) Then
4891 Me.Adapter.UpdateCommand.Connection.Open
4892 End If
4893 Try
4894 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
4895 Return returnValue
4896 Finally
4897 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
4898 Me.Adapter.UpdateCommand.Connection.Close
4899 End If
4900 End Try
4901 End Function
4902
4903 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4904 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4905 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4906 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
4907 Public Overloads Overridable Function Update(ByVal SchoolID As Integer, ByVal _Class As String, ByVal FeeName As String, ByVal Semester As String, ByVal Fee As Decimal, ByVal Original_C_ID As Integer, ByVal Original_SchoolID As Integer, ByVal Original_Class As String, ByVal Original_FeeName As String, ByVal Original_Semester As String, ByVal Original_Fee As Decimal) As Integer
4908 Return Me.Update(Original_C_ID, SchoolID, _Class, FeeName, Semester, Fee, Original_C_ID, Original_SchoolID, Original_Class, Original_FeeName, Original_Semester, Original_Fee)
4909 End Function
4910 End Class
4911
4912 '''<summary>
4913 '''Represents the connection and commands used to retrieve and save data.
4914 '''</summary>
4915 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
4916 Global.System.ComponentModel.ToolboxItem(true), _
4917 Global.System.ComponentModel.DataObjectAttribute(true), _
4918 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
4919 ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
4920 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4921 Partial Public Class CourseFeePaymentTableAdapter
4922 Inherits Global.System.ComponentModel.Component
4923
4924 Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
4925
4926 Private _connection As Global.System.Data.SqlClient.SqlConnection
4927
4928 Private _transaction As Global.System.Data.SqlClient.SqlTransaction
4929
4930 Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
4931
4932 Private _clearBeforeFill As Boolean
4933
4934 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4935 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4936 Public Sub New()
4937 MyBase.New
4938 Me.ClearBeforeFill = true
4939 End Sub
4940
4941 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4942 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4943 Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
4944 Get
4945 If (Me._adapter Is Nothing) Then
4946 Me.InitAdapter
4947 End If
4948 Return Me._adapter
4949 End Get
4950 End Property
4951
4952 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4953 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4954 Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
4955 Get
4956 If (Me._connection Is Nothing) Then
4957 Me.InitConnection
4958 End If
4959 Return Me._connection
4960 End Get
4961 Set
4962 Me._connection = value
4963 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
4964 Me.Adapter.InsertCommand.Connection = value
4965 End If
4966 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
4967 Me.Adapter.DeleteCommand.Connection = value
4968 End If
4969 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
4970 Me.Adapter.UpdateCommand.Connection = value
4971 End If
4972 Dim i As Integer = 0
4973 Do While (i < Me.CommandCollection.Length)
4974 If (Not (Me.CommandCollection(i)) Is Nothing) Then
4975 CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
4976 End If
4977 i = (i + 1)
4978 Loop
4979 End Set
4980 End Property
4981
4982 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4983 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4984 Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
4985 Get
4986 Return Me._transaction
4987 End Get
4988 Set
4989 Me._transaction = value
4990 Dim i As Integer = 0
4991 Do While (i < Me.CommandCollection.Length)
4992 Me.CommandCollection(i).Transaction = Me._transaction
4993 i = (i + 1)
4994 Loop
4995 If ((Not (Me.Adapter) Is Nothing) _
4996 AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
4997 Me.Adapter.DeleteCommand.Transaction = Me._transaction
4998 End If
4999 If ((Not (Me.Adapter) Is Nothing) _
5000 AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
5001 Me.Adapter.InsertCommand.Transaction = Me._transaction
5002 End If
5003 If ((Not (Me.Adapter) Is Nothing) _
5004 AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
5005 Me.Adapter.UpdateCommand.Transaction = Me._transaction
5006 End If
5007 End Set
5008 End Property
5009
5010 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5011 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5012 Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
5013 Get
5014 If (Me._commandCollection Is Nothing) Then
5015 Me.InitCommandCollection
5016 End If
5017 Return Me._commandCollection
5018 End Get
5019 End Property
5020
5021 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5022 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5023 Public Property ClearBeforeFill() As Boolean
5024 Get
5025 Return Me._clearBeforeFill
5026 End Get
5027 Set
5028 Me._clearBeforeFill = value
5029 End Set
5030 End Property
5031
5032 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5033 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5034 Private Sub InitAdapter()
5035 Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
5036 Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
5037 tableMapping.SourceTable = "Table"
5038 tableMapping.DataSetTable = "CourseFeePayment"
5039 tableMapping.ColumnMappings.Add("Id", "Id")
5040 tableMapping.ColumnMappings.Add("CFP_ID", "CFP_ID")
5041 tableMapping.ColumnMappings.Add("PaymentID", "PaymentID")
5042 tableMapping.ColumnMappings.Add("AdmissionNo", "AdmissionNo")
5043 tableMapping.ColumnMappings.Add("Session", "Session")
5044 tableMapping.ColumnMappings.Add("Semester", "Semester")
5045 tableMapping.ColumnMappings.Add("TotalFee", "TotalFee")
5046 tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
5047 tableMapping.ColumnMappings.Add("DiscountAmt", "DiscountAmt")
5048 tableMapping.ColumnMappings.Add("PreviousDue", "PreviousDue")
5049 tableMapping.ColumnMappings.Add("Fine", "Fine")
5050 tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
5051 tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
5052 tableMapping.ColumnMappings.Add("ModeOfPayment", "ModeOfPayment")
5053 tableMapping.ColumnMappings.Add("PaymentModeDetails", "PaymentModeDetails")
5054 tableMapping.ColumnMappings.Add("PaymentDate", "PaymentDate")
5055 tableMapping.ColumnMappings.Add("PaymentDue", "PaymentDue")
5056 tableMapping.ColumnMappings.Add("ClassType", "ClassType")
5057 tableMapping.ColumnMappings.Add("SchoolType", "SchoolType")
5058 tableMapping.ColumnMappings.Add("Class", "Class")
5059 tableMapping.ColumnMappings.Add("Section", "Section")
5060 Me._adapter.TableMappings.Add(tableMapping)
5061 Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
5062 Me._adapter.DeleteCommand.Connection = Me.Connection
5063 Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[CourseFeePayment] WHERE (([Id] = @Original_Id) AND ([CFP_ID] ="& _
5064 " @Original_CFP_ID) AND ([PaymentID] = @Original_PaymentID) AND ([AdmissionNo] = "& _
5065 "@Original_AdmissionNo) AND ([Session] = @Original_Session) AND ([Semester] = @Or"& _
5066 "iginal_Semester) AND ([TotalFee] = @Original_TotalFee) AND ([DiscountPer] = @Ori"& _
5067 "ginal_DiscountPer) AND ([DiscountAmt] = @Original_DiscountAmt) AND ([PreviousDue"& _
5068 "] = @Original_PreviousDue) AND ([Fine] = @Original_Fine) AND ([GrandTotal] = @Or"& _
5069 "iginal_GrandTotal) AND ([TotalPaid] = @Original_TotalPaid) AND ([ModeOfPayment] "& _
5070 "= @Original_ModeOfPayment) AND ((@IsNull_PaymentModeDetails = 1 AND [PaymentMode"& _
5071 "Details] IS NULL) OR ([PaymentModeDetails] = @Original_PaymentModeDetails)) AND "& _
5072 "([PaymentDate] = @Original_PaymentDate) AND ([PaymentDue] = @Original_PaymentDue"& _
5073 ") AND ([ClassType] = @Original_ClassType) AND ([SchoolType] = @Original_SchoolTy"& _
5074 "pe) AND ([Class] = @Original_Class) AND ([Section] = @Original_Section))"
5075 Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
5076 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5077 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CFP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5078 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5079 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5080 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5081 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5082 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5083 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5084 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5085 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5086 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5087 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5088 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5089 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5090 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PaymentModeDetails", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5091 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5092 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5093 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5094 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5095 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5096 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5097 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5098 Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
5099 Me._adapter.InsertCommand.Connection = Me.Connection
5100 Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[CourseFeePayment] ([CFP_ID], [PaymentID], [AdmissionNo], [Sess"& _
5101 "ion], [Semester], [TotalFee], [DiscountPer], [DiscountAmt], [PreviousDue], [Fine"& _
5102 "], [GrandTotal], [TotalPaid], [ModeOfPayment], [PaymentModeDetails], [PaymentDat"& _
5103 "e], [PaymentDue], [ClassType], [SchoolType], [Class], [Section]) VALUES (@CFP_ID"& _
5104 ", @PaymentID, @AdmissionNo, @Session, @Semester, @TotalFee, @DiscountPer, @Disco"& _
5105 "untAmt, @PreviousDue, @Fine, @GrandTotal, @TotalPaid, @ModeOfPayment, @PaymentMo"& _
5106 "deDetails, @PaymentDate, @PaymentDue, @ClassType, @SchoolType, @Class, @Section)"& _
5107 ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, CFP_ID, PaymentID, AdmissionNo, Session, Semester, TotalFee, Disco"& _
5108 "untPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, Pa"& _
5109 "ymentModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, Class, Section"& _
5110 " FROM CourseFeePayment WHERE (Id = SCOPE_IDENTITY())"
5111 Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
5112 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CFP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5113 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5114 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5115 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5116 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5117 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5118 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5119 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5120 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5121 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5122 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5123 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5124 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5125 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5126 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5127 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5128 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5129 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5130 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5131 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5132 Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
5133 Me._adapter.UpdateCommand.Connection = Me.Connection
5134 Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[CourseFeePayment] SET [CFP_ID] = @CFP_ID, [PaymentID] = @PaymentID,"& _
5135 " [AdmissionNo] = @AdmissionNo, [Session] = @Session, [Semester] = @Semester, [To"& _
5136 "talFee] = @TotalFee, [DiscountPer] = @DiscountPer, [DiscountAmt] = @DiscountAmt,"& _
5137 " [PreviousDue] = @PreviousDue, [Fine] = @Fine, [GrandTotal] = @GrandTotal, [Tota"& _
5138 "lPaid] = @TotalPaid, [ModeOfPayment] = @ModeOfPayment, [PaymentModeDetails] = @P"& _
5139 "aymentModeDetails, [PaymentDate] = @PaymentDate, [PaymentDue] = @PaymentDue, [Cl"& _
5140 "assType] = @ClassType, [SchoolType] = @SchoolType, [Class] = @Class, [Section] ="& _
5141 " @Section WHERE (([Id] = @Original_Id) AND ([CFP_ID] = @Original_CFP_ID) AND ([P"& _
5142 "aymentID] = @Original_PaymentID) AND ([AdmissionNo] = @Original_AdmissionNo) AND"& _
5143 " ([Session] = @Original_Session) AND ([Semester] = @Original_Semester) AND ([Tot"& _
5144 "alFee] = @Original_TotalFee) AND ([DiscountPer] = @Original_DiscountPer) AND ([D"& _
5145 "iscountAmt] = @Original_DiscountAmt) AND ([PreviousDue] = @Original_PreviousDue)"& _
5146 " AND ([Fine] = @Original_Fine) AND ([GrandTotal] = @Original_GrandTotal) AND ([T"& _
5147 "otalPaid] = @Original_TotalPaid) AND ([ModeOfPayment] = @Original_ModeOfPayment)"& _
5148 " AND ((@IsNull_PaymentModeDetails = 1 AND [PaymentModeDetails] IS NULL) OR ([Pay"& _
5149 "mentModeDetails] = @Original_PaymentModeDetails)) AND ([PaymentDate] = @Original"& _
5150 "_PaymentDate) AND ([PaymentDue] = @Original_PaymentDue) AND ([ClassType] = @Orig"& _
5151 "inal_ClassType) AND ([SchoolType] = @Original_SchoolType) AND ([Class] = @Origin"& _
5152 "al_Class) AND ([Section] = @Original_Section));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, CFP_ID, PaymentID, A"& _
5153 "dmissionNo, Session, Semester, TotalFee, DiscountPer, DiscountAmt, PreviousDue, "& _
5154 "Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, PaymentDate, Pay"& _
5155 "mentDue, ClassType, SchoolType, Class, Section FROM CourseFeePayment WHERE (Id ="& _
5156 " @Id)"
5157 Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
5158 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CFP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5159 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5160 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5161 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5162 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5163 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5164 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5165 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5166 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5167 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5168 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5169 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5170 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5171 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5172 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5173 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5174 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5175 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5176 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5177 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5178 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5179 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CFP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CFP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5180 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5181 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5182 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5183 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Semester", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Semester", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5184 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalFee", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalFee", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5185 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5186 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountAmt", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountAmt", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5187 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PreviousDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PreviousDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5188 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Fine", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Fine", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5189 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5190 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5191 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ModeOfPayment", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ModeOfPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5192 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PaymentModeDetails", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5193 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentModeDetails", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentModeDetails", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5194 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5195 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5196 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ClassType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ClassType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5197 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5198 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5199 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Section", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Section", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5200 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5201 End Sub
5202
5203 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5204 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5205 Private Sub InitConnection()
5206 Me._connection = New Global.System.Data.SqlClient.SqlConnection()
5207 Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
5208 End Sub
5209
5210 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5211 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5212 Private Sub InitCommandCollection()
5213 Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
5214 Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
5215 Me._commandCollection(0).Connection = Me.Connection
5216 Me._commandCollection(0).CommandText = "SELECT Id, CFP_ID, PaymentID, AdmissionNo, Session, Semester, TotalFee, DiscountP"& _
5217 "er, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, Paymen"& _
5218 "tModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, Class, Section FRO"& _
5219 "M dbo.CourseFeePayment"
5220 Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
5221 End Sub
5222
5223 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5224 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5225 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
5226 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
5227 Public Overloads Overridable Function Fill(ByVal dataTable As Class_DBDataSet.CourseFeePaymentDataTable) As Integer
5228 Me.Adapter.SelectCommand = Me.CommandCollection(0)
5229 If (Me.ClearBeforeFill = true) Then
5230 dataTable.Clear
5231 End If
5232 Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
5233 Return returnValue
5234 End Function
5235
5236 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5237 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5238 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
5239 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
5240 Public Overloads Overridable Function GetData() As Class_DBDataSet.CourseFeePaymentDataTable
5241 Me.Adapter.SelectCommand = Me.CommandCollection(0)
5242 Dim dataTable As Class_DBDataSet.CourseFeePaymentDataTable = New Class_DBDataSet.CourseFeePaymentDataTable()
5243 Me.Adapter.Fill(dataTable)
5244 Return dataTable
5245 End Function
5246
5247 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5248 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5249 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
5250 Public Overloads Overridable Function Update(ByVal dataTable As Class_DBDataSet.CourseFeePaymentDataTable) As Integer
5251 Return Me.Adapter.Update(dataTable)
5252 End Function
5253
5254 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5255 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5256 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
5257 Public Overloads Overridable Function Update(ByVal dataSet As Class_DBDataSet) As Integer
5258 Return Me.Adapter.Update(dataSet, "CourseFeePayment")
5259 End Function
5260
5261 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5262 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5263 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
5264 Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
5265 Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
5266 End Function
5267
5268 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5269 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5270 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
5271 Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
5272 Return Me.Adapter.Update(dataRows)
5273 End Function
5274
5275 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5276 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5277 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
5278 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
5279 Public Overloads Overridable Function Delete( _
5280 ByVal Original_Id As Integer, _
5281 ByVal Original_CFP_ID As Integer, _
5282 ByVal Original_PaymentID As String, _
5283 ByVal Original_AdmissionNo As String, _
5284 ByVal Original_Session As String, _
5285 ByVal Original_Semester As String, _
5286 ByVal Original_TotalFee As Decimal, _
5287 ByVal Original_DiscountPer As Decimal, _
5288 ByVal Original_DiscountAmt As Decimal, _
5289 ByVal Original_PreviousDue As Decimal, _
5290 ByVal Original_Fine As Decimal, _
5291 ByVal Original_GrandTotal As Decimal, _
5292 ByVal Original_TotalPaid As Decimal, _
5293 ByVal Original_ModeOfPayment As String, _
5294 ByVal Original_PaymentModeDetails As String, _
5295 ByVal Original_PaymentDate As Date, _
5296 ByVal Original_PaymentDue As Decimal, _
5297 ByVal Original_ClassType As String, _
5298 ByVal Original_SchoolType As String, _
5299 ByVal Original_Class As String, _
5300 ByVal Original_Section As String) As Integer
5301 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
5302 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CFP_ID,Integer)
5303 If (Original_PaymentID Is Nothing) Then
5304 Throw New Global.System.ArgumentNullException("Original_PaymentID")
5305 Else
5306 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PaymentID,String)
5307 End If
5308 If (Original_AdmissionNo Is Nothing) Then
5309 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
5310 Else
5311 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_AdmissionNo,String)
5312 End If
5313 If (Original_Session Is Nothing) Then
5314 Throw New Global.System.ArgumentNullException("Original_Session")
5315 Else
5316 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Session,String)
5317 End If
5318 If (Original_Semester Is Nothing) Then
5319 Throw New Global.System.ArgumentNullException("Original_Semester")
5320 Else
5321 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Semester,String)
5322 End If
5323 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TotalFee,Decimal)
5324 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_DiscountPer,Decimal)
5325 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DiscountAmt,Decimal)
5326 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_PreviousDue,Decimal)
5327 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Fine,Decimal)
5328 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_GrandTotal,Decimal)
5329 Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TotalPaid,Decimal)
5330 If (Original_ModeOfPayment Is Nothing) Then
5331 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
5332 Else
5333 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_ModeOfPayment,String)
5334 End If
5335 If (Original_PaymentModeDetails Is Nothing) Then
5336 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object)
5337 Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value
5338 Else
5339 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object)
5340 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_PaymentModeDetails,String)
5341 End If
5342 Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_PaymentDate,Date)
5343 Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_PaymentDue,Decimal)
5344 If (Original_ClassType Is Nothing) Then
5345 Throw New Global.System.ArgumentNullException("Original_ClassType")
5346 Else
5347 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_ClassType,String)
5348 End If
5349 If (Original_SchoolType Is Nothing) Then
5350 Throw New Global.System.ArgumentNullException("Original_SchoolType")
5351 Else
5352 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_SchoolType,String)
5353 End If
5354 If (Original_Class Is Nothing) Then
5355 Throw New Global.System.ArgumentNullException("Original_Class")
5356 Else
5357 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Class,String)
5358 End If
5359 If (Original_Section Is Nothing) Then
5360 Throw New Global.System.ArgumentNullException("Original_Section")
5361 Else
5362 Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_Section,String)
5363 End If
5364 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
5365 If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
5366 <> Global.System.Data.ConnectionState.Open) Then
5367 Me.Adapter.DeleteCommand.Connection.Open
5368 End If
5369 Try
5370 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
5371 Return returnValue
5372 Finally
5373 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
5374 Me.Adapter.DeleteCommand.Connection.Close
5375 End If
5376 End Try
5377 End Function
5378
5379 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5380 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5381 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
5382 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
5383 Public Overloads Overridable Function Insert( _
5384 ByVal CFP_ID As Integer, _
5385 ByVal PaymentID As String, _
5386 ByVal AdmissionNo As String, _
5387 ByVal Session As String, _
5388 ByVal Semester As String, _
5389 ByVal TotalFee As Decimal, _
5390 ByVal DiscountPer As Decimal, _
5391 ByVal DiscountAmt As Decimal, _
5392 ByVal PreviousDue As Decimal, _
5393 ByVal Fine As Decimal, _
5394 ByVal GrandTotal As Decimal, _
5395 ByVal TotalPaid As Decimal, _
5396 ByVal ModeOfPayment As String, _
5397 ByVal PaymentModeDetails As String, _
5398 ByVal PaymentDate As Date, _
5399 ByVal PaymentDue As Decimal, _
5400 ByVal ClassType As String, _
5401 ByVal SchoolType As String, _
5402 ByVal _Class As String, _
5403 ByVal Section As String) As Integer
5404 Me.Adapter.InsertCommand.Parameters(0).Value = CType(CFP_ID,Integer)
5405 If (PaymentID Is Nothing) Then
5406 Throw New Global.System.ArgumentNullException("PaymentID")
5407 Else
5408 Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentID,String)
5409 End If
5410 If (AdmissionNo Is Nothing) Then
5411 Throw New Global.System.ArgumentNullException("AdmissionNo")
5412 Else
5413 Me.Adapter.InsertCommand.Parameters(2).Value = CType(AdmissionNo,String)
5414 End If
5415 If (Session Is Nothing) Then
5416 Throw New Global.System.ArgumentNullException("Session")
5417 Else
5418 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Session,String)
5419 End If
5420 If (Semester Is Nothing) Then
5421 Throw New Global.System.ArgumentNullException("Semester")
5422 Else
5423 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Semester,String)
5424 End If
5425 Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalFee,Decimal)
5426 Me.Adapter.InsertCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
5427 Me.Adapter.InsertCommand.Parameters(7).Value = CType(DiscountAmt,Decimal)
5428 Me.Adapter.InsertCommand.Parameters(8).Value = CType(PreviousDue,Decimal)
5429 Me.Adapter.InsertCommand.Parameters(9).Value = CType(Fine,Decimal)
5430 Me.Adapter.InsertCommand.Parameters(10).Value = CType(GrandTotal,Decimal)
5431 Me.Adapter.InsertCommand.Parameters(11).Value = CType(TotalPaid,Decimal)
5432 If (ModeOfPayment Is Nothing) Then
5433 Throw New Global.System.ArgumentNullException("ModeOfPayment")
5434 Else
5435 Me.Adapter.InsertCommand.Parameters(12).Value = CType(ModeOfPayment,String)
5436 End If
5437 If (PaymentModeDetails Is Nothing) Then
5438 Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
5439 Else
5440 Me.Adapter.InsertCommand.Parameters(13).Value = CType(PaymentModeDetails,String)
5441 End If
5442 Me.Adapter.InsertCommand.Parameters(14).Value = CType(PaymentDate,Date)
5443 Me.Adapter.InsertCommand.Parameters(15).Value = CType(PaymentDue,Decimal)
5444 If (ClassType Is Nothing) Then
5445 Throw New Global.System.ArgumentNullException("ClassType")
5446 Else
5447 Me.Adapter.InsertCommand.Parameters(16).Value = CType(ClassType,String)
5448 End If
5449 If (SchoolType Is Nothing) Then
5450 Throw New Global.System.ArgumentNullException("SchoolType")
5451 Else
5452 Me.Adapter.InsertCommand.Parameters(17).Value = CType(SchoolType,String)
5453 End If
5454 If (_Class Is Nothing) Then
5455 Throw New Global.System.ArgumentNullException("_Class")
5456 Else
5457 Me.Adapter.InsertCommand.Parameters(18).Value = CType(_Class,String)
5458 End If
5459 If (Section Is Nothing) Then
5460 Throw New Global.System.ArgumentNullException("Section")
5461 Else
5462 Me.Adapter.InsertCommand.Parameters(19).Value = CType(Section,String)
5463 End If
5464 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
5465 If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
5466 <> Global.System.Data.ConnectionState.Open) Then
5467 Me.Adapter.InsertCommand.Connection.Open
5468 End If
5469 Try
5470 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
5471 Return returnValue
5472 Finally
5473 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
5474 Me.Adapter.InsertCommand.Connection.Close
5475 End If
5476 End Try
5477 End Function
5478
5479 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5480 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5481 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
5482 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
5483 Public Overloads Overridable Function Update( _
5484 ByVal CFP_ID As Integer, _
5485 ByVal PaymentID As String, _
5486 ByVal AdmissionNo As String, _
5487 ByVal Session As String, _
5488 ByVal Semester As String, _
5489 ByVal TotalFee As Decimal, _
5490 ByVal DiscountPer As Decimal, _
5491 ByVal DiscountAmt As Decimal, _
5492 ByVal PreviousDue As Decimal, _
5493 ByVal Fine As Decimal, _
5494 ByVal GrandTotal As Decimal, _
5495 ByVal TotalPaid As Decimal, _
5496 ByVal ModeOfPayment As String, _
5497 ByVal PaymentModeDetails As String, _
5498 ByVal PaymentDate As Date, _
5499 ByVal PaymentDue As Decimal, _
5500 ByVal ClassType As String, _
5501 ByVal SchoolType As String, _
5502 ByVal _Class As String, _
5503 ByVal Section As String, _
5504 ByVal Original_Id As Integer, _
5505 ByVal Original_CFP_ID As Integer, _
5506 ByVal Original_PaymentID As String, _
5507 ByVal Original_AdmissionNo As String, _
5508 ByVal Original_Session As String, _
5509 ByVal Original_Semester As String, _
5510 ByVal Original_TotalFee As Decimal, _
5511 ByVal Original_DiscountPer As Decimal, _
5512 ByVal Original_DiscountAmt As Decimal, _
5513 ByVal Original_PreviousDue As Decimal, _
5514 ByVal Original_Fine As Decimal, _
5515 ByVal Original_GrandTotal As Decimal, _
5516 ByVal Original_TotalPaid As Decimal, _
5517 ByVal Original_ModeOfPayment As String, _
5518 ByVal Original_PaymentModeDetails As String, _
5519 ByVal Original_PaymentDate As Date, _
5520 ByVal Original_PaymentDue As Decimal, _
5521 ByVal Original_ClassType As String, _
5522 ByVal Original_SchoolType As String, _
5523 ByVal Original_Class As String, _
5524 ByVal Original_Section As String, _
5525 ByVal Id As Integer) As Integer
5526 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CFP_ID,Integer)
5527 If (PaymentID Is Nothing) Then
5528 Throw New Global.System.ArgumentNullException("PaymentID")
5529 Else
5530 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentID,String)
5531 End If
5532 If (AdmissionNo Is Nothing) Then
5533 Throw New Global.System.ArgumentNullException("AdmissionNo")
5534 Else
5535 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AdmissionNo,String)
5536 End If
5537 If (Session Is Nothing) Then
5538 Throw New Global.System.ArgumentNullException("Session")
5539 Else
5540 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Session,String)
5541 End If
5542 If (Semester Is Nothing) Then
5543 Throw New Global.System.ArgumentNullException("Semester")
5544 Else
5545 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Semester,String)
5546 End If
5547 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalFee,Decimal)
5548 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
5549 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DiscountAmt,Decimal)
5550 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PreviousDue,Decimal)
5551 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Fine,Decimal)
5552 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GrandTotal,Decimal)
5553 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TotalPaid,Decimal)
5554 If (ModeOfPayment Is Nothing) Then
5555 Throw New Global.System.ArgumentNullException("ModeOfPayment")
5556 Else
5557 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ModeOfPayment,String)
5558 End If
5559 If (PaymentModeDetails Is Nothing) Then
5560 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
5561 Else
5562 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PaymentModeDetails,String)
5563 End If
5564 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PaymentDate,Date)
5565 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(PaymentDue,Decimal)
5566 If (ClassType Is Nothing) Then
5567 Throw New Global.System.ArgumentNullException("ClassType")
5568 Else
5569 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ClassType,String)
5570 End If
5571 If (SchoolType Is Nothing) Then
5572 Throw New Global.System.ArgumentNullException("SchoolType")
5573 Else
5574 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SchoolType,String)
5575 End If
5576 If (_Class Is Nothing) Then
5577 Throw New Global.System.ArgumentNullException("_Class")
5578 Else
5579 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(_Class,String)
5580 End If
5581 If (Section Is Nothing) Then
5582 Throw New Global.System.ArgumentNullException("Section")
5583 Else
5584 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Section,String)
5585 End If
5586 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Id,Integer)
5587 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CFP_ID,Integer)
5588 If (Original_PaymentID Is Nothing) Then
5589 Throw New Global.System.ArgumentNullException("Original_PaymentID")
5590 Else
5591 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PaymentID,String)
5592 End If
5593 If (Original_AdmissionNo Is Nothing) Then
5594 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
5595 Else
5596 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_AdmissionNo,String)
5597 End If
5598 If (Original_Session Is Nothing) Then
5599 Throw New Global.System.ArgumentNullException("Original_Session")
5600 Else
5601 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Session,String)
5602 End If
5603 If (Original_Semester Is Nothing) Then
5604 Throw New Global.System.ArgumentNullException("Original_Semester")
5605 Else
5606 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Semester,String)
5607 End If
5608 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_TotalFee,Decimal)
5609 Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_DiscountPer,Decimal)
5610 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_DiscountAmt,Decimal)
5611 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_PreviousDue,Decimal)
5612 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_Fine,Decimal)
5613 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_GrandTotal,Decimal)
5614 Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_TotalPaid,Decimal)
5615 If (Original_ModeOfPayment Is Nothing) Then
5616 Throw New Global.System.ArgumentNullException("Original_ModeOfPayment")
5617 Else
5618 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_ModeOfPayment,String)
5619 End If
5620 If (Original_PaymentModeDetails Is Nothing) Then
5621 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object)
5622 Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value
5623 Else
5624 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object)
5625 Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_PaymentModeDetails,String)
5626 End If
5627 Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_PaymentDate,Date)
5628 Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_PaymentDue,Decimal)
5629 If (Original_ClassType Is Nothing) Then
5630 Throw New Global.System.ArgumentNullException("Original_ClassType")
5631 Else
5632 Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_ClassType,String)
5633 End If
5634 If (Original_SchoolType Is Nothing) Then
5635 Throw New Global.System.ArgumentNullException("Original_SchoolType")
5636 Else
5637 Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_SchoolType,String)
5638 End If
5639 If (Original_Class Is Nothing) Then
5640 Throw New Global.System.ArgumentNullException("Original_Class")
5641 Else
5642 Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_Class,String)
5643 End If
5644 If (Original_Section Is Nothing) Then
5645 Throw New Global.System.ArgumentNullException("Original_Section")
5646 Else
5647 Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_Section,String)
5648 End If
5649 Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Id,Integer)
5650 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
5651 If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
5652 <> Global.System.Data.ConnectionState.Open) Then
5653 Me.Adapter.UpdateCommand.Connection.Open
5654 End If
5655 Try
5656 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
5657 Return returnValue
5658 Finally
5659 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
5660 Me.Adapter.UpdateCommand.Connection.Close
5661 End If
5662 End Try
5663 End Function
5664
5665 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5666 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5667 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
5668 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
5669 Public Overloads Overridable Function Update( _
5670 ByVal CFP_ID As Integer, _
5671 ByVal PaymentID As String, _
5672 ByVal AdmissionNo As String, _
5673 ByVal Session As String, _
5674 ByVal Semester As String, _
5675 ByVal TotalFee As Decimal, _
5676 ByVal DiscountPer As Decimal, _
5677 ByVal DiscountAmt As Decimal, _
5678 ByVal PreviousDue As Decimal, _
5679 ByVal Fine As Decimal, _
5680 ByVal GrandTotal As Decimal, _
5681 ByVal TotalPaid As Decimal, _
5682 ByVal ModeOfPayment As String, _
5683 ByVal PaymentModeDetails As String, _
5684 ByVal PaymentDate As Date, _
5685 ByVal PaymentDue As Decimal, _
5686 ByVal ClassType As String, _
5687 ByVal SchoolType As String, _
5688 ByVal _Class As String, _
5689 ByVal Section As String, _
5690 ByVal Original_Id As Integer, _
5691 ByVal Original_CFP_ID As Integer, _
5692 ByVal Original_PaymentID As String, _
5693 ByVal Original_AdmissionNo As String, _
5694 ByVal Original_Session As String, _
5695 ByVal Original_Semester As String, _
5696 ByVal Original_TotalFee As Decimal, _
5697 ByVal Original_DiscountPer As Decimal, _
5698 ByVal Original_DiscountAmt As Decimal, _
5699 ByVal Original_PreviousDue As Decimal, _
5700 ByVal Original_Fine As Decimal, _
5701 ByVal Original_GrandTotal As Decimal, _
5702 ByVal Original_TotalPaid As Decimal, _
5703 ByVal Original_ModeOfPayment As String, _
5704 ByVal Original_PaymentModeDetails As String, _
5705 ByVal Original_PaymentDate As Date, _
5706 ByVal Original_PaymentDue As Decimal, _
5707 ByVal Original_ClassType As String, _
5708 ByVal Original_SchoolType As String, _
5709 ByVal Original_Class As String, _
5710 ByVal Original_Section As String) As Integer
5711 Return Me.Update(CFP_ID, PaymentID, AdmissionNo, Session, Semester, TotalFee, DiscountPer, DiscountAmt, PreviousDue, Fine, GrandTotal, TotalPaid, ModeOfPayment, PaymentModeDetails, PaymentDate, PaymentDue, ClassType, SchoolType, _Class, Section, Original_Id, Original_CFP_ID, Original_PaymentID, Original_AdmissionNo, Original_Session, Original_Semester, Original_TotalFee, Original_DiscountPer, Original_DiscountAmt, Original_PreviousDue, Original_Fine, Original_GrandTotal, Original_TotalPaid, Original_ModeOfPayment, Original_PaymentModeDetails, Original_PaymentDate, Original_PaymentDue, Original_ClassType, Original_SchoolType, Original_Class, Original_Section, Original_Id)
5712 End Function
5713 End Class
5714
5715 '''<summary>
5716 '''Represents the connection and commands used to retrieve and save data.
5717 '''</summary>
5718 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
5719 Global.System.ComponentModel.ToolboxItem(true), _
5720 Global.System.ComponentModel.DataObjectAttribute(true), _
5721 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
5722 ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
5723 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
5724 Partial Public Class SchoolInfoTableAdapter
5725 Inherits Global.System.ComponentModel.Component
5726
5727 Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
5728
5729 Private _connection As Global.System.Data.SqlClient.SqlConnection
5730
5731 Private _transaction As Global.System.Data.SqlClient.SqlTransaction
5732
5733 Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
5734
5735 Private _clearBeforeFill As Boolean
5736
5737 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5738 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5739 Public Sub New()
5740 MyBase.New
5741 Me.ClearBeforeFill = true
5742 End Sub
5743
5744 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5745 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5746 Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
5747 Get
5748 If (Me._adapter Is Nothing) Then
5749 Me.InitAdapter
5750 End If
5751 Return Me._adapter
5752 End Get
5753 End Property
5754
5755 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5756 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5757 Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
5758 Get
5759 If (Me._connection Is Nothing) Then
5760 Me.InitConnection
5761 End If
5762 Return Me._connection
5763 End Get
5764 Set
5765 Me._connection = value
5766 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
5767 Me.Adapter.InsertCommand.Connection = value
5768 End If
5769 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
5770 Me.Adapter.DeleteCommand.Connection = value
5771 End If
5772 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
5773 Me.Adapter.UpdateCommand.Connection = value
5774 End If
5775 Dim i As Integer = 0
5776 Do While (i < Me.CommandCollection.Length)
5777 If (Not (Me.CommandCollection(i)) Is Nothing) Then
5778 CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
5779 End If
5780 i = (i + 1)
5781 Loop
5782 End Set
5783 End Property
5784
5785 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5786 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5787 Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
5788 Get
5789 Return Me._transaction
5790 End Get
5791 Set
5792 Me._transaction = value
5793 Dim i As Integer = 0
5794 Do While (i < Me.CommandCollection.Length)
5795 Me.CommandCollection(i).Transaction = Me._transaction
5796 i = (i + 1)
5797 Loop
5798 If ((Not (Me.Adapter) Is Nothing) _
5799 AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
5800 Me.Adapter.DeleteCommand.Transaction = Me._transaction
5801 End If
5802 If ((Not (Me.Adapter) Is Nothing) _
5803 AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
5804 Me.Adapter.InsertCommand.Transaction = Me._transaction
5805 End If
5806 If ((Not (Me.Adapter) Is Nothing) _
5807 AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
5808 Me.Adapter.UpdateCommand.Transaction = Me._transaction
5809 End If
5810 End Set
5811 End Property
5812
5813 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5814 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5815 Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
5816 Get
5817 If (Me._commandCollection Is Nothing) Then
5818 Me.InitCommandCollection
5819 End If
5820 Return Me._commandCollection
5821 End Get
5822 End Property
5823
5824 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5825 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5826 Public Property ClearBeforeFill() As Boolean
5827 Get
5828 Return Me._clearBeforeFill
5829 End Get
5830 Set
5831 Me._clearBeforeFill = value
5832 End Set
5833 End Property
5834
5835 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5836 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5837 Private Sub InitAdapter()
5838 Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
5839 Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
5840 tableMapping.SourceTable = "Table"
5841 tableMapping.DataSetTable = "SchoolInfo"
5842 tableMapping.ColumnMappings.Add("S_Id", "S_Id")
5843 tableMapping.ColumnMappings.Add("SchoolName", "SchoolName")
5844 tableMapping.ColumnMappings.Add("Address", "Address")
5845 tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
5846 tableMapping.ColumnMappings.Add("AltContactNo", "AltContactNo")
5847 tableMapping.ColumnMappings.Add("FaxNo", "FaxNo")
5848 tableMapping.ColumnMappings.Add("Email", "Email")
5849 tableMapping.ColumnMappings.Add("Website", "Website")
5850 tableMapping.ColumnMappings.Add("Logo", "Logo")
5851 tableMapping.ColumnMappings.Add("RegistrationNo", "RegistrationNo")
5852 tableMapping.ColumnMappings.Add("DiseNo", "DiseNo")
5853 tableMapping.ColumnMappings.Add("IndexNo", "IndexNo")
5854 tableMapping.ColumnMappings.Add("EstablishedYear", "EstablishedYear")
5855 tableMapping.ColumnMappings.Add("Class", "Class")
5856 tableMapping.ColumnMappings.Add("SchoolType", "SchoolType")
5857 Me._adapter.TableMappings.Add(tableMapping)
5858 Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
5859 Me._adapter.DeleteCommand.Connection = Me.Connection
5860 Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[SchoolInfo] WHERE (([S_Id] = @Original_S_Id) AND ([SchoolName]"& _
5861 " = @Original_SchoolName) AND ([Address] = @Original_Address) AND ([ContactNo] = "& _
5862 "@Original_ContactNo) AND ((@IsNull_AltContactNo = 1 AND [AltContactNo] IS NULL) "& _
5863 "OR ([AltContactNo] = @Original_AltContactNo)) AND ((@IsNull_FaxNo = 1 AND [FaxNo"& _
5864 "] IS NULL) OR ([FaxNo] = @Original_FaxNo)) AND ([Email] = @Original_Email) AND ("& _
5865 "(@IsNull_Website = 1 AND [Website] IS NULL) OR ([Website] = @Original_Website)) "& _
5866 "AND ((@IsNull_RegistrationNo = 1 AND [RegistrationNo] IS NULL) OR ([Registration"& _
5867 "No] = @Original_RegistrationNo)) AND ((@IsNull_DiseNo = 1 AND [DiseNo] IS NULL) "& _
5868 "OR ([DiseNo] = @Original_DiseNo)) AND ((@IsNull_IndexNo = 1 AND [IndexNo] IS NUL"& _
5869 "L) OR ([IndexNo] = @Original_IndexNo)) AND ([EstablishedYear] = @Original_Establ"& _
5870 "ishedYear) AND ((@IsNull_Class = 1 AND [Class] IS NULL) OR ([Class] = @Original_"& _
5871 "Class)) AND ([SchoolType] = @Original_SchoolType))"
5872 Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
5873 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5874 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5875 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5876 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5877 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AltContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5878 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AltContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5879 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FaxNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5880 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FaxNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5881 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5882 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Website", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5883 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Website", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5884 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_RegistrationNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5885 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RegistrationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5886 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DiseNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5887 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiseNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5888 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_IndexNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5889 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IndexNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5890 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstablishedYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstablishedYear", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5891 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Class", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5892 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5893 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5894 Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
5895 Me._adapter.InsertCommand.Connection = Me.Connection
5896 Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[SchoolInfo] ([S_Id], [SchoolName], [Address], [ContactNo], [Al"& _
5897 "tContactNo], [FaxNo], [Email], [Website], [Logo], [RegistrationNo], [DiseNo], [I"& _
5898 "ndexNo], [EstablishedYear], [Class], [SchoolType]) VALUES (@S_Id, @SchoolName, @"& _
5899 "Address, @ContactNo, @AltContactNo, @FaxNo, @Email, @Website, @Logo, @Registrati"& _
5900 "onNo, @DiseNo, @IndexNo, @EstablishedYear, @Class, @SchoolType);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT S_Id, S"& _
5901 "choolName, Address, ContactNo, AltContactNo, FaxNo, Email, Website, Logo, Regist"& _
5902 "rationNo, DiseNo, IndexNo, EstablishedYear, Class, SchoolType FROM SchoolInfo WH"& _
5903 "ERE (S_Id = @S_Id)"
5904 Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
5905 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5906 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5907 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5908 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5909 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AltContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5910 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FaxNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5911 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5912 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Website", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5913 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5914 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RegistrationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5915 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiseNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5916 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IndexNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5917 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstablishedYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstablishedYear", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5918 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5919 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5920 Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
5921 Me._adapter.UpdateCommand.Connection = Me.Connection
5922 Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[SchoolInfo] SET [S_Id] = @S_Id, [SchoolName] = @SchoolName, [Addres"& _
5923 "s] = @Address, [ContactNo] = @ContactNo, [AltContactNo] = @AltContactNo, [FaxNo]"& _
5924 " = @FaxNo, [Email] = @Email, [Website] = @Website, [Logo] = @Logo, [Registration"& _
5925 "No] = @RegistrationNo, [DiseNo] = @DiseNo, [IndexNo] = @IndexNo, [EstablishedYea"& _
5926 "r] = @EstablishedYear, [Class] = @Class, [SchoolType] = @SchoolType WHERE (([S_I"& _
5927 "d] = @Original_S_Id) AND ([SchoolName] = @Original_SchoolName) AND ([Address] = "& _
5928 "@Original_Address) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_AltCont"& _
5929 "actNo = 1 AND [AltContactNo] IS NULL) OR ([AltContactNo] = @Original_AltContactN"& _
5930 "o)) AND ((@IsNull_FaxNo = 1 AND [FaxNo] IS NULL) OR ([FaxNo] = @Original_FaxNo))"& _
5931 " AND ([Email] = @Original_Email) AND ((@IsNull_Website = 1 AND [Website] IS NULL"& _
5932 ") OR ([Website] = @Original_Website)) AND ((@IsNull_RegistrationNo = 1 AND [Regi"& _
5933 "strationNo] IS NULL) OR ([RegistrationNo] = @Original_RegistrationNo)) AND ((@Is"& _
5934 "Null_DiseNo = 1 AND [DiseNo] IS NULL) OR ([DiseNo] = @Original_DiseNo)) AND ((@I"& _
5935 "sNull_IndexNo = 1 AND [IndexNo] IS NULL) OR ([IndexNo] = @Original_IndexNo)) AND"& _
5936 " ([EstablishedYear] = @Original_EstablishedYear) AND ((@IsNull_Class = 1 AND [Cl"& _
5937 "ass] IS NULL) OR ([Class] = @Original_Class)) AND ([SchoolType] = @Original_Scho"& _
5938 "olType));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT S_Id, SchoolName, Address, ContactNo, AltContactNo, FaxNo, Ema"& _
5939 "il, Website, Logo, RegistrationNo, DiseNo, IndexNo, EstablishedYear, Class, Scho"& _
5940 "olType FROM SchoolInfo WHERE (S_Id = @S_Id)"
5941 Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
5942 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5943 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5944 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5945 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5946 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AltContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5947 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FaxNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5948 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5949 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Website", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5950 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5951 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RegistrationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5952 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiseNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5953 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IndexNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5954 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstablishedYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstablishedYear", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5955 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5956 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
5957 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5958 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolName", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5959 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5960 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5961 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AltContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5962 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AltContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AltContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5963 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FaxNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5964 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FaxNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FaxNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5965 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Email", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Email", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5966 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Website", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5967 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Website", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Website", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5968 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_RegistrationNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5969 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RegistrationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RegistrationNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5970 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DiseNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5971 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiseNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DiseNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5972 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_IndexNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5973 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IndexNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IndexNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5974 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstablishedYear", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstablishedYear", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5975 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Class", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
5976 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Class", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Class", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5977 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
5978 End Sub
5979
5980 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5981 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5982 Private Sub InitConnection()
5983 Me._connection = New Global.System.Data.SqlClient.SqlConnection()
5984 Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
5985 End Sub
5986
5987 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5988 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5989 Private Sub InitCommandCollection()
5990 Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
5991 Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
5992 Me._commandCollection(0).Connection = Me.Connection
5993 Me._commandCollection(0).CommandText = "SELECT S_Id, SchoolName, Address, ContactNo, AltContactNo, FaxNo, Email, Website,"& _
5994 " Logo, RegistrationNo, DiseNo, IndexNo, EstablishedYear, Class, SchoolType FROM "& _
5995 "dbo.SchoolInfo"
5996 Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
5997 End Sub
5998
5999 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6000 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6001 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
6002 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
6003 Public Overloads Overridable Function Fill(ByVal dataTable As Class_DBDataSet.SchoolInfoDataTable) As Integer
6004 Me.Adapter.SelectCommand = Me.CommandCollection(0)
6005 If (Me.ClearBeforeFill = true) Then
6006 dataTable.Clear
6007 End If
6008 Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6009 Return returnValue
6010 End Function
6011
6012 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6013 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6014 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
6015 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
6016 Public Overloads Overridable Function GetData() As Class_DBDataSet.SchoolInfoDataTable
6017 Me.Adapter.SelectCommand = Me.CommandCollection(0)
6018 Dim dataTable As Class_DBDataSet.SchoolInfoDataTable = New Class_DBDataSet.SchoolInfoDataTable()
6019 Me.Adapter.Fill(dataTable)
6020 Return dataTable
6021 End Function
6022
6023 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6024 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6025 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
6026 Public Overloads Overridable Function Update(ByVal dataTable As Class_DBDataSet.SchoolInfoDataTable) As Integer
6027 Return Me.Adapter.Update(dataTable)
6028 End Function
6029
6030 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6031 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6032 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
6033 Public Overloads Overridable Function Update(ByVal dataSet As Class_DBDataSet) As Integer
6034 Return Me.Adapter.Update(dataSet, "SchoolInfo")
6035 End Function
6036
6037 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6038 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6039 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
6040 Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
6041 Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
6042 End Function
6043
6044 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6045 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6046 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
6047 Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
6048 Return Me.Adapter.Update(dataRows)
6049 End Function
6050
6051 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6052 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6053 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
6054 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
6055 Public Overloads Overridable Function Delete(ByVal Original_S_Id As Integer, ByVal Original_SchoolName As String, ByVal Original_Address As String, ByVal Original_ContactNo As String, ByVal Original_AltContactNo As String, ByVal Original_FaxNo As String, ByVal Original_Email As String, ByVal Original_Website As String, ByVal Original_RegistrationNo As String, ByVal Original_DiseNo As String, ByVal Original_IndexNo As String, ByVal Original_EstablishedYear As Integer, ByVal Original_Class As String, ByVal Original_SchoolType As String) As Integer
6056 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_S_Id,Integer)
6057 If (Original_SchoolName Is Nothing) Then
6058 Throw New Global.System.ArgumentNullException("Original_SchoolName")
6059 Else
6060 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SchoolName,String)
6061 End If
6062 If (Original_Address Is Nothing) Then
6063 Throw New Global.System.ArgumentNullException("Original_Address")
6064 Else
6065 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Address,String)
6066 End If
6067 If (Original_ContactNo Is Nothing) Then
6068 Throw New Global.System.ArgumentNullException("Original_ContactNo")
6069 Else
6070 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ContactNo,String)
6071 End If
6072 If (Original_AltContactNo Is Nothing) Then
6073 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)
6074 Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value
6075 Else
6076 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)
6077 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_AltContactNo,String)
6078 End If
6079 If (Original_FaxNo Is Nothing) Then
6080 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
6081 Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
6082 Else
6083 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
6084 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_FaxNo,String)
6085 End If
6086 If (Original_Email Is Nothing) Then
6087 Throw New Global.System.ArgumentNullException("Original_Email")
6088 Else
6089 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Email,String)
6090 End If
6091 If (Original_Website Is Nothing) Then
6092 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
6093 Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
6094 Else
6095 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
6096 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Website,String)
6097 End If
6098 If (Original_RegistrationNo Is Nothing) Then
6099 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
6100 Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
6101 Else
6102 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
6103 Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_RegistrationNo,String)
6104 End If
6105 If (Original_DiseNo Is Nothing) Then
6106 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
6107 Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
6108 Else
6109 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
6110 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_DiseNo,String)
6111 End If
6112 If (Original_IndexNo Is Nothing) Then
6113 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
6114 Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
6115 Else
6116 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
6117 Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_IndexNo,String)
6118 End If
6119 Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_EstablishedYear,Integer)
6120 If (Original_Class Is Nothing) Then
6121 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object)
6122 Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value
6123 Else
6124 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object)
6125 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_Class,String)
6126 End If
6127 If (Original_SchoolType Is Nothing) Then
6128 Throw New Global.System.ArgumentNullException("Original_SchoolType")
6129 Else
6130 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_SchoolType,String)
6131 End If
6132 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
6133 If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
6134 <> Global.System.Data.ConnectionState.Open) Then
6135 Me.Adapter.DeleteCommand.Connection.Open
6136 End If
6137 Try
6138 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
6139 Return returnValue
6140 Finally
6141 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6142 Me.Adapter.DeleteCommand.Connection.Close
6143 End If
6144 End Try
6145 End Function
6146
6147 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6148 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6149 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
6150 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
6151 Public Overloads Overridable Function Insert(ByVal S_Id As Integer, ByVal SchoolName As String, ByVal Address As String, ByVal ContactNo As String, ByVal AltContactNo As String, ByVal FaxNo As String, ByVal Email As String, ByVal Website As String, ByVal Logo() As Byte, ByVal RegistrationNo As String, ByVal DiseNo As String, ByVal IndexNo As String, ByVal EstablishedYear As Integer, ByVal _Class As String, ByVal SchoolType As String) As Integer
6152 Me.Adapter.InsertCommand.Parameters(0).Value = CType(S_Id,Integer)
6153 If (SchoolName Is Nothing) Then
6154 Throw New Global.System.ArgumentNullException("SchoolName")
6155 Else
6156 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SchoolName,String)
6157 End If
6158 If (Address Is Nothing) Then
6159 Throw New Global.System.ArgumentNullException("Address")
6160 Else
6161 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Address,String)
6162 End If
6163 If (ContactNo Is Nothing) Then
6164 Throw New Global.System.ArgumentNullException("ContactNo")
6165 Else
6166 Me.Adapter.InsertCommand.Parameters(3).Value = CType(ContactNo,String)
6167 End If
6168 If (AltContactNo Is Nothing) Then
6169 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
6170 Else
6171 Me.Adapter.InsertCommand.Parameters(4).Value = CType(AltContactNo,String)
6172 End If
6173 If (FaxNo Is Nothing) Then
6174 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
6175 Else
6176 Me.Adapter.InsertCommand.Parameters(5).Value = CType(FaxNo,String)
6177 End If
6178 If (Email Is Nothing) Then
6179 Throw New Global.System.ArgumentNullException("Email")
6180 Else
6181 Me.Adapter.InsertCommand.Parameters(6).Value = CType(Email,String)
6182 End If
6183 If (Website Is Nothing) Then
6184 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
6185 Else
6186 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Website,String)
6187 End If
6188 If (Logo Is Nothing) Then
6189 Throw New Global.System.ArgumentNullException("Logo")
6190 Else
6191 Me.Adapter.InsertCommand.Parameters(8).Value = CType(Logo,Byte())
6192 End If
6193 If (RegistrationNo Is Nothing) Then
6194 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
6195 Else
6196 Me.Adapter.InsertCommand.Parameters(9).Value = CType(RegistrationNo,String)
6197 End If
6198 If (DiseNo Is Nothing) Then
6199 Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
6200 Else
6201 Me.Adapter.InsertCommand.Parameters(10).Value = CType(DiseNo,String)
6202 End If
6203 If (IndexNo Is Nothing) Then
6204 Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
6205 Else
6206 Me.Adapter.InsertCommand.Parameters(11).Value = CType(IndexNo,String)
6207 End If
6208 Me.Adapter.InsertCommand.Parameters(12).Value = CType(EstablishedYear,Integer)
6209 If (_Class Is Nothing) Then
6210 Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
6211 Else
6212 Me.Adapter.InsertCommand.Parameters(13).Value = CType(_Class,String)
6213 End If
6214 If (SchoolType Is Nothing) Then
6215 Throw New Global.System.ArgumentNullException("SchoolType")
6216 Else
6217 Me.Adapter.InsertCommand.Parameters(14).Value = CType(SchoolType,String)
6218 End If
6219 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
6220 If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
6221 <> Global.System.Data.ConnectionState.Open) Then
6222 Me.Adapter.InsertCommand.Connection.Open
6223 End If
6224 Try
6225 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
6226 Return returnValue
6227 Finally
6228 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6229 Me.Adapter.InsertCommand.Connection.Close
6230 End If
6231 End Try
6232 End Function
6233
6234 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6235 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6236 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
6237 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
6238 Public Overloads Overridable Function Update( _
6239 ByVal S_Id As Integer, _
6240 ByVal SchoolName As String, _
6241 ByVal Address As String, _
6242 ByVal ContactNo As String, _
6243 ByVal AltContactNo As String, _
6244 ByVal FaxNo As String, _
6245 ByVal Email As String, _
6246 ByVal Website As String, _
6247 ByVal Logo() As Byte, _
6248 ByVal RegistrationNo As String, _
6249 ByVal DiseNo As String, _
6250 ByVal IndexNo As String, _
6251 ByVal EstablishedYear As Integer, _
6252 ByVal _Class As String, _
6253 ByVal SchoolType As String, _
6254 ByVal Original_S_Id As Integer, _
6255 ByVal Original_SchoolName As String, _
6256 ByVal Original_Address As String, _
6257 ByVal Original_ContactNo As String, _
6258 ByVal Original_AltContactNo As String, _
6259 ByVal Original_FaxNo As String, _
6260 ByVal Original_Email As String, _
6261 ByVal Original_Website As String, _
6262 ByVal Original_RegistrationNo As String, _
6263 ByVal Original_DiseNo As String, _
6264 ByVal Original_IndexNo As String, _
6265 ByVal Original_EstablishedYear As Integer, _
6266 ByVal Original_Class As String, _
6267 ByVal Original_SchoolType As String) As Integer
6268 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(S_Id,Integer)
6269 If (SchoolName Is Nothing) Then
6270 Throw New Global.System.ArgumentNullException("SchoolName")
6271 Else
6272 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SchoolName,String)
6273 End If
6274 If (Address Is Nothing) Then
6275 Throw New Global.System.ArgumentNullException("Address")
6276 Else
6277 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Address,String)
6278 End If
6279 If (ContactNo Is Nothing) Then
6280 Throw New Global.System.ArgumentNullException("ContactNo")
6281 Else
6282 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ContactNo,String)
6283 End If
6284 If (AltContactNo Is Nothing) Then
6285 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
6286 Else
6287 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(AltContactNo,String)
6288 End If
6289 If (FaxNo Is Nothing) Then
6290 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
6291 Else
6292 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FaxNo,String)
6293 End If
6294 If (Email Is Nothing) Then
6295 Throw New Global.System.ArgumentNullException("Email")
6296 Else
6297 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Email,String)
6298 End If
6299 If (Website Is Nothing) Then
6300 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
6301 Else
6302 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Website,String)
6303 End If
6304 If (Logo Is Nothing) Then
6305 Throw New Global.System.ArgumentNullException("Logo")
6306 Else
6307 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Logo,Byte())
6308 End If
6309 If (RegistrationNo Is Nothing) Then
6310 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
6311 Else
6312 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(RegistrationNo,String)
6313 End If
6314 If (DiseNo Is Nothing) Then
6315 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
6316 Else
6317 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(DiseNo,String)
6318 End If
6319 If (IndexNo Is Nothing) Then
6320 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
6321 Else
6322 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(IndexNo,String)
6323 End If
6324 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(EstablishedYear,Integer)
6325 If (_Class Is Nothing) Then
6326 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
6327 Else
6328 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_Class,String)
6329 End If
6330 If (SchoolType Is Nothing) Then
6331 Throw New Global.System.ArgumentNullException("SchoolType")
6332 Else
6333 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SchoolType,String)
6334 End If
6335 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_S_Id,Integer)
6336 If (Original_SchoolName Is Nothing) Then
6337 Throw New Global.System.ArgumentNullException("Original_SchoolName")
6338 Else
6339 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SchoolName,String)
6340 End If
6341 If (Original_Address Is Nothing) Then
6342 Throw New Global.System.ArgumentNullException("Original_Address")
6343 Else
6344 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Address,String)
6345 End If
6346 If (Original_ContactNo Is Nothing) Then
6347 Throw New Global.System.ArgumentNullException("Original_ContactNo")
6348 Else
6349 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ContactNo,String)
6350 End If
6351 If (Original_AltContactNo Is Nothing) Then
6352 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
6353 Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
6354 Else
6355 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
6356 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_AltContactNo,String)
6357 End If
6358 If (Original_FaxNo Is Nothing) Then
6359 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object)
6360 Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
6361 Else
6362 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object)
6363 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_FaxNo,String)
6364 End If
6365 If (Original_Email Is Nothing) Then
6366 Throw New Global.System.ArgumentNullException("Original_Email")
6367 Else
6368 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_Email,String)
6369 End If
6370 If (Original_Website Is Nothing) Then
6371 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
6372 Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
6373 Else
6374 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
6375 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_Website,String)
6376 End If
6377 If (Original_RegistrationNo Is Nothing) Then
6378 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
6379 Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
6380 Else
6381 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
6382 Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_RegistrationNo,String)
6383 End If
6384 If (Original_DiseNo Is Nothing) Then
6385 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object)
6386 Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
6387 Else
6388 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object)
6389 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_DiseNo,String)
6390 End If
6391 If (Original_IndexNo Is Nothing) Then
6392 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
6393 Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
6394 Else
6395 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
6396 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_IndexNo,String)
6397 End If
6398 Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_EstablishedYear,Integer)
6399 If (Original_Class Is Nothing) Then
6400 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object)
6401 Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value
6402 Else
6403 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object)
6404 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_Class,String)
6405 End If
6406 If (Original_SchoolType Is Nothing) Then
6407 Throw New Global.System.ArgumentNullException("Original_SchoolType")
6408 Else
6409 Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_SchoolType,String)
6410 End If
6411 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
6412 If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
6413 <> Global.System.Data.ConnectionState.Open) Then
6414 Me.Adapter.UpdateCommand.Connection.Open
6415 End If
6416 Try
6417 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
6418 Return returnValue
6419 Finally
6420 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
6421 Me.Adapter.UpdateCommand.Connection.Close
6422 End If
6423 End Try
6424 End Function
6425
6426 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6427 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6428 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
6429 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
6430 Public Overloads Overridable Function Update( _
6431 ByVal SchoolName As String, _
6432 ByVal Address As String, _
6433 ByVal ContactNo As String, _
6434 ByVal AltContactNo As String, _
6435 ByVal FaxNo As String, _
6436 ByVal Email As String, _
6437 ByVal Website As String, _
6438 ByVal Logo() As Byte, _
6439 ByVal RegistrationNo As String, _
6440 ByVal DiseNo As String, _
6441 ByVal IndexNo As String, _
6442 ByVal EstablishedYear As Integer, _
6443 ByVal _Class As String, _
6444 ByVal SchoolType As String, _
6445 ByVal Original_S_Id As Integer, _
6446 ByVal Original_SchoolName As String, _
6447 ByVal Original_Address As String, _
6448 ByVal Original_ContactNo As String, _
6449 ByVal Original_AltContactNo As String, _
6450 ByVal Original_FaxNo As String, _
6451 ByVal Original_Email As String, _
6452 ByVal Original_Website As String, _
6453 ByVal Original_RegistrationNo As String, _
6454 ByVal Original_DiseNo As String, _
6455 ByVal Original_IndexNo As String, _
6456 ByVal Original_EstablishedYear As Integer, _
6457 ByVal Original_Class As String, _
6458 ByVal Original_SchoolType As String) As Integer
6459 Return Me.Update(Original_S_Id, SchoolName, Address, ContactNo, AltContactNo, FaxNo, Email, Website, Logo, RegistrationNo, DiseNo, IndexNo, EstablishedYear, _Class, SchoolType, Original_S_Id, Original_SchoolName, Original_Address, Original_ContactNo, Original_AltContactNo, Original_FaxNo, Original_Email, Original_Website, Original_RegistrationNo, Original_DiseNo, Original_IndexNo, Original_EstablishedYear, Original_Class, Original_SchoolType)
6460 End Function
6461 End Class
6462
6463 '''<summary>
6464 '''Represents the connection and commands used to retrieve and save data.
6465 '''</summary>
6466 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
6467 Global.System.ComponentModel.ToolboxItem(true), _
6468 Global.System.ComponentModel.DataObjectAttribute(true), _
6469 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
6470 ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
6471 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
6472 Partial Public Class StudentTableAdapter
6473 Inherits Global.System.ComponentModel.Component
6474
6475 Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
6476
6477 Private _connection As Global.System.Data.SqlClient.SqlConnection
6478
6479 Private _transaction As Global.System.Data.SqlClient.SqlTransaction
6480
6481 Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
6482
6483 Private _clearBeforeFill As Boolean
6484
6485 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6486 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6487 Public Sub New()
6488 MyBase.New
6489 Me.ClearBeforeFill = true
6490 End Sub
6491
6492 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6493 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6494 Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
6495 Get
6496 If (Me._adapter Is Nothing) Then
6497 Me.InitAdapter
6498 End If
6499 Return Me._adapter
6500 End Get
6501 End Property
6502
6503 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6504 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6505 Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
6506 Get
6507 If (Me._connection Is Nothing) Then
6508 Me.InitConnection
6509 End If
6510 Return Me._connection
6511 End Get
6512 Set
6513 Me._connection = value
6514 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
6515 Me.Adapter.InsertCommand.Connection = value
6516 End If
6517 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
6518 Me.Adapter.DeleteCommand.Connection = value
6519 End If
6520 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
6521 Me.Adapter.UpdateCommand.Connection = value
6522 End If
6523 Dim i As Integer = 0
6524 Do While (i < Me.CommandCollection.Length)
6525 If (Not (Me.CommandCollection(i)) Is Nothing) Then
6526 CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
6527 End If
6528 i = (i + 1)
6529 Loop
6530 End Set
6531 End Property
6532
6533 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6534 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6535 Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
6536 Get
6537 Return Me._transaction
6538 End Get
6539 Set
6540 Me._transaction = value
6541 Dim i As Integer = 0
6542 Do While (i < Me.CommandCollection.Length)
6543 Me.CommandCollection(i).Transaction = Me._transaction
6544 i = (i + 1)
6545 Loop
6546 If ((Not (Me.Adapter) Is Nothing) _
6547 AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
6548 Me.Adapter.DeleteCommand.Transaction = Me._transaction
6549 End If
6550 If ((Not (Me.Adapter) Is Nothing) _
6551 AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
6552 Me.Adapter.InsertCommand.Transaction = Me._transaction
6553 End If
6554 If ((Not (Me.Adapter) Is Nothing) _
6555 AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
6556 Me.Adapter.UpdateCommand.Transaction = Me._transaction
6557 End If
6558 End Set
6559 End Property
6560
6561 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6562 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6563 Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
6564 Get
6565 If (Me._commandCollection Is Nothing) Then
6566 Me.InitCommandCollection
6567 End If
6568 Return Me._commandCollection
6569 End Get
6570 End Property
6571
6572 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6573 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6574 Public Property ClearBeforeFill() As Boolean
6575 Get
6576 Return Me._clearBeforeFill
6577 End Get
6578 Set
6579 Me._clearBeforeFill = value
6580 End Set
6581 End Property
6582
6583 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6584 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6585 Private Sub InitAdapter()
6586 Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
6587 Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
6588 tableMapping.SourceTable = "Table"
6589 tableMapping.DataSetTable = "Student"
6590 tableMapping.ColumnMappings.Add("AdmissionNo", "AdmissionNo")
6591 tableMapping.ColumnMappings.Add("EnrollmentNo", "EnrollmentNo")
6592 tableMapping.ColumnMappings.Add("GRNo", "GRNo")
6593 tableMapping.ColumnMappings.Add("UID", "UID")
6594 tableMapping.ColumnMappings.Add("StudentName", "StudentName")
6595 tableMapping.ColumnMappings.Add("FatherName", "FatherName")
6596 tableMapping.ColumnMappings.Add("MotherName", "MotherName")
6597 tableMapping.ColumnMappings.Add("FatherCN", "FatherCN")
6598 tableMapping.ColumnMappings.Add("PermanentAddress", "PermanentAddress")
6599 tableMapping.ColumnMappings.Add("TemporaryAddress", "TemporaryAddress")
6600 tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
6601 tableMapping.ColumnMappings.Add("EmailID", "EmailID")
6602 tableMapping.ColumnMappings.Add("DOB", "DOB")
6603 tableMapping.ColumnMappings.Add("Gender", "Gender")
6604 tableMapping.ColumnMappings.Add("AdmissionDate", "AdmissionDate")
6605 tableMapping.ColumnMappings.Add("Session", "Session")
6606 tableMapping.ColumnMappings.Add("Caste", "Caste")
6607 tableMapping.ColumnMappings.Add("Religion", "Religion")
6608 tableMapping.ColumnMappings.Add("SectionID", "SectionID")
6609 tableMapping.ColumnMappings.Add("Photo", "Photo")
6610 tableMapping.ColumnMappings.Add("Nationality", "Nationality")
6611 tableMapping.ColumnMappings.Add("SchoolID", "SchoolID")
6612 tableMapping.ColumnMappings.Add("LastSchoolAttended", "LastSchoolAttended")
6613 tableMapping.ColumnMappings.Add("Result", "Result")
6614 tableMapping.ColumnMappings.Add("PassPercentage", "PassPercentage")
6615 tableMapping.ColumnMappings.Add("Status", "Status")
6616 Me._adapter.TableMappings.Add(tableMapping)
6617 Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
6618 Me._adapter.DeleteCommand.Connection = Me.Connection
6619 Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Student] WHERE (([AdmissionNo] = @Original_AdmissionNo) AND (("& _
6620 "@IsNull_EnrollmentNo = 1 AND [EnrollmentNo] IS NULL) OR ([EnrollmentNo] = @Origi"& _
6621 "nal_EnrollmentNo)) AND ((@IsNull_GRNo = 1 AND [GRNo] IS NULL) OR ([GRNo] = @Orig"& _
6622 "inal_GRNo)) AND ((@IsNull_UID = 1 AND [UID] IS NULL) OR ([UID] = @Original_UID))"& _
6623 " AND ([StudentName] = @Original_StudentName) AND ([FatherName] = @Original_Fathe"& _
6624 "rName) AND ([MotherName] = @Original_MotherName) AND ((@IsNull_FatherCN = 1 AND "& _
6625 "[FatherCN] IS NULL) OR ([FatherCN] = @Original_FatherCN)) AND ([PermanentAddress"& _
6626 "] = @Original_PermanentAddress) AND ([TemporaryAddress] = @Original_TemporaryAdd"& _
6627 "ress) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1 AND [Ema"& _
6628 "ilID] IS NULL) OR ([EmailID] = @Original_EmailID)) AND ([DOB] = @Original_DOB) A"& _
6629 "ND ([Gender] = @Original_Gender) AND ([AdmissionDate] = @Original_AdmissionDate)"& _
6630 " AND ([Session] = @Original_Session) AND ([Caste] = @Original_Caste) AND ([Relig"& _
6631 "ion] = @Original_Religion) AND ([SectionID] = @Original_SectionID) AND ((@IsNull"& _
6632 "_Nationality = 1 AND [Nationality] IS NULL) OR ([Nationality] = @Original_Nation"& _
6633 "ality)) AND ([SchoolID] = @Original_SchoolID) AND ((@IsNull_LastSchoolAttended ="& _
6634 " 1 AND [LastSchoolAttended] IS NULL) OR ([LastSchoolAttended] = @Original_LastSc"& _
6635 "hoolAttended)) AND ((@IsNull_Result = 1 AND [Result] IS NULL) OR ([Result] = @Or"& _
6636 "iginal_Result)) AND ((@IsNull_PassPercentage = 1 AND [PassPercentage] IS NULL) O"& _
6637 "R ([PassPercentage] = @Original_PassPercentage)) AND ([Status] = @Original_Statu"& _
6638 "s))"
6639 Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
6640 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6641 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EnrollmentNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6642 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EnrollmentNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6643 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GRNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6644 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GRNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6645 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6646 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6647 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StudentName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6648 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6649 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MotherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MotherName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6650 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FatherCN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6651 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FatherCN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6652 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6653 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6654 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6655 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6656 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6657 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6658 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6659 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6660 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6661 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Caste", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Caste", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6662 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Religion", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Religion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6663 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SectionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6664 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6665 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nationality", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6666 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6667 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LastSchoolAttended", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6668 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LastSchoolAttended", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6669 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Result", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6670 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Result", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6671 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PassPercentage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6672 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PassPercentage", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6673 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6674 Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
6675 Me._adapter.InsertCommand.Connection = Me.Connection
6676 Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Student] ([AdmissionNo], [EnrollmentNo], [GRNo], [UID], [Stude"& _
6677 "ntName], [FatherName], [MotherName], [FatherCN], [PermanentAddress], [TemporaryA"& _
6678 "ddress], [ContactNo], [EmailID], [DOB], [Gender], [AdmissionDate], [Session], [C"& _
6679 "aste], [Religion], [SectionID], [Photo], [Nationality], [SchoolID], [LastSchoolA"& _
6680 "ttended], [Result], [PassPercentage], [Status]) VALUES (@AdmissionNo, @Enrollmen"& _
6681 "tNo, @GRNo, @UID, @StudentName, @FatherName, @MotherName, @FatherCN, @PermanentA"& _
6682 "ddress, @TemporaryAddress, @ContactNo, @EmailID, @DOB, @Gender, @AdmissionDate, "& _
6683 "@Session, @Caste, @Religion, @SectionID, @Photo, @Nationality, @SchoolID, @LastS"& _
6684 "choolAttended, @Result, @PassPercentage, @Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdmissionNo, Enrollme"& _
6685 "ntNo, GRNo, UID, StudentName, FatherName, MotherName, FatherCN, PermanentAddress"& _
6686 ", TemporaryAddress, ContactNo, EmailID, DOB, Gender, AdmissionDate, Session, Cas"& _
6687 "te, Religion, SectionID, Photo, Nationality, SchoolID, LastSchoolAttended, Resul"& _
6688 "t, PassPercentage, Status FROM Student WHERE (AdmissionNo = @AdmissionNo)"
6689 Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
6690 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6691 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EnrollmentNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6692 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GRNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6693 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6694 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StudentName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6695 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6696 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MotherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MotherName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6697 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FatherCN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6698 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6699 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6700 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6701 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6702 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6703 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6704 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6705 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6706 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Caste", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Caste", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6707 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Religion", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Religion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6708 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SectionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6709 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6710 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nationality", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6711 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6712 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LastSchoolAttended", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6713 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Result", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6714 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PassPercentage", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6715 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6716 Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
6717 Me._adapter.UpdateCommand.Connection = Me.Connection
6718 Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Student] SET [AdmissionNo] = @AdmissionNo, [EnrollmentNo] = @Enroll"& _
6719 "mentNo, [GRNo] = @GRNo, [UID] = @UID, [StudentName] = @StudentName, [FatherName]"& _
6720 " = @FatherName, [MotherName] = @MotherName, [FatherCN] = @FatherCN, [PermanentAd"& _
6721 "dress] = @PermanentAddress, [TemporaryAddress] = @TemporaryAddress, [ContactNo] "& _
6722 "= @ContactNo, [EmailID] = @EmailID, [DOB] = @DOB, [Gender] = @Gender, [Admission"& _
6723 "Date] = @AdmissionDate, [Session] = @Session, [Caste] = @Caste, [Religion] = @Re"& _
6724 "ligion, [SectionID] = @SectionID, [Photo] = @Photo, [Nationality] = @Nationality"& _
6725 ", [SchoolID] = @SchoolID, [LastSchoolAttended] = @LastSchoolAttended, [Result] ="& _
6726 " @Result, [PassPercentage] = @PassPercentage, [Status] = @Status WHERE (([Admiss"& _
6727 "ionNo] = @Original_AdmissionNo) AND ((@IsNull_EnrollmentNo = 1 AND [EnrollmentNo"& _
6728 "] IS NULL) OR ([EnrollmentNo] = @Original_EnrollmentNo)) AND ((@IsNull_GRNo = 1 "& _
6729 "AND [GRNo] IS NULL) OR ([GRNo] = @Original_GRNo)) AND ((@IsNull_UID = 1 AND [UID"& _
6730 "] IS NULL) OR ([UID] = @Original_UID)) AND ([StudentName] = @Original_StudentNam"& _
6731 "e) AND ([FatherName] = @Original_FatherName) AND ([MotherName] = @Original_Mothe"& _
6732 "rName) AND ((@IsNull_FatherCN = 1 AND [FatherCN] IS NULL) OR ([FatherCN] = @Orig"& _
6733 "inal_FatherCN)) AND ([PermanentAddress] = @Original_PermanentAddress) AND ([Temp"& _
6734 "oraryAddress] = @Original_TemporaryAddress) AND ([ContactNo] = @Original_Contact"& _
6735 "No) AND ((@IsNull_EmailID = 1 AND [EmailID] IS NULL) OR ([EmailID] = @Original_E"& _
6736 "mailID)) AND ([DOB] = @Original_DOB) AND ([Gender] = @Original_Gender) AND ([Adm"& _
6737 "issionDate] = @Original_AdmissionDate) AND ([Session] = @Original_Session) AND ("& _
6738 "[Caste] = @Original_Caste) AND ([Religion] = @Original_Religion) AND ([SectionID"& _
6739 "] = @Original_SectionID) AND ((@IsNull_Nationality = 1 AND [Nationality] IS NULL"& _
6740 ") OR ([Nationality] = @Original_Nationality)) AND ([SchoolID] = @Original_School"& _
6741 "ID) AND ((@IsNull_LastSchoolAttended = 1 AND [LastSchoolAttended] IS NULL) OR (["& _
6742 "LastSchoolAttended] = @Original_LastSchoolAttended)) AND ((@IsNull_Result = 1 AN"& _
6743 "D [Result] IS NULL) OR ([Result] = @Original_Result)) AND ((@IsNull_PassPercenta"& _
6744 "ge = 1 AND [PassPercentage] IS NULL) OR ([PassPercentage] = @Original_PassPercen"& _
6745 "tage)) AND ([Status] = @Original_Status));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT AdmissionNo, EnrollmentNo, GR"& _
6746 "No, UID, StudentName, FatherName, MotherName, FatherCN, PermanentAddress, Tempor"& _
6747 "aryAddress, ContactNo, EmailID, DOB, Gender, AdmissionDate, Session, Caste, Reli"& _
6748 "gion, SectionID, Photo, Nationality, SchoolID, LastSchoolAttended, Result, PassP"& _
6749 "ercentage, Status FROM Student WHERE (AdmissionNo = @AdmissionNo)"
6750 Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
6751 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6752 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EnrollmentNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6753 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GRNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6754 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6755 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StudentName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6756 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6757 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MotherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MotherName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6758 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FatherCN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6759 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6760 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6761 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6762 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6763 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6764 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6765 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdmissionDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6766 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6767 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Caste", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Caste", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6768 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Religion", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Religion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6769 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SectionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6770 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6771 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Nationality", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6772 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6773 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LastSchoolAttended", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6774 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Result", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6775 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PassPercentage", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6776 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
6777 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6778 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EnrollmentNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6779 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EnrollmentNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EnrollmentNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6780 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GRNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6781 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GRNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GRNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6782 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_UID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6783 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6784 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StudentName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StudentName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6785 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FatherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6786 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MotherName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MotherName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6787 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FatherCN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6788 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FatherCN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FatherCN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6789 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PermanentAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PermanentAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6790 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TemporaryAddress", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TemporaryAddress", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6791 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6792 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6793 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6794 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOB", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6795 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6796 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdmissionDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AdmissionDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6797 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Session", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Session", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6798 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Caste", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Caste", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6799 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Religion", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Religion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6800 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SectionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SectionID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6801 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Nationality", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6802 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Nationality", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Nationality", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6803 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SchoolID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SchoolID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6804 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LastSchoolAttended", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6805 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LastSchoolAttended", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LastSchoolAttended", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6806 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Result", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6807 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Result", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Result", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6808 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PassPercentage", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
6809 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PassPercentage", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PassPercentage", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6810 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
6811 End Sub
6812
6813 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6814 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6815 Private Sub InitConnection()
6816 Me._connection = New Global.System.Data.SqlClient.SqlConnection()
6817 Me._connection.ConnectionString = Global.ERP_System.My.MySettings.Default.ERPS_DBConnectionString
6818 End Sub
6819
6820 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6821 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6822 Private Sub InitCommandCollection()
6823 Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
6824 Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
6825 Me._commandCollection(0).Connection = Me.Connection
6826 Me._commandCollection(0).CommandText = "SELECT AdmissionNo, EnrollmentNo, GRNo, UID, StudentName, FatherName, MotherName,"& _
6827 " FatherCN, PermanentAddress, TemporaryAddress, ContactNo, EmailID, DOB, Gender, "& _
6828 "AdmissionDate, Session, Caste, Religion, SectionID, Photo, Nationality, SchoolID"& _
6829 ", LastSchoolAttended, Result, PassPercentage, Status FROM dbo.Student"
6830 Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
6831 End Sub
6832
6833 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6834 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6835 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
6836 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
6837 Public Overloads Overridable Function Fill(ByVal dataTable As Class_DBDataSet.StudentDataTable) As Integer
6838 Me.Adapter.SelectCommand = Me.CommandCollection(0)
6839 If (Me.ClearBeforeFill = true) Then
6840 dataTable.Clear
6841 End If
6842 Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
6843 Return returnValue
6844 End Function
6845
6846 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6847 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6848 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
6849 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
6850 Public Overloads Overridable Function GetData() As Class_DBDataSet.StudentDataTable
6851 Me.Adapter.SelectCommand = Me.CommandCollection(0)
6852 Dim dataTable As Class_DBDataSet.StudentDataTable = New Class_DBDataSet.StudentDataTable()
6853 Me.Adapter.Fill(dataTable)
6854 Return dataTable
6855 End Function
6856
6857 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6858 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6859 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
6860 Public Overloads Overridable Function Update(ByVal dataTable As Class_DBDataSet.StudentDataTable) As Integer
6861 Return Me.Adapter.Update(dataTable)
6862 End Function
6863
6864 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6865 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6866 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
6867 Public Overloads Overridable Function Update(ByVal dataSet As Class_DBDataSet) As Integer
6868 Return Me.Adapter.Update(dataSet, "Student")
6869 End Function
6870
6871 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6872 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6873 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
6874 Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
6875 Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
6876 End Function
6877
6878 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6879 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6880 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
6881 Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
6882 Return Me.Adapter.Update(dataRows)
6883 End Function
6884
6885 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6886 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6887 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
6888 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
6889 Public Overloads Overridable Function Delete( _
6890 ByVal Original_AdmissionNo As String, _
6891 ByVal Original_EnrollmentNo As String, _
6892 ByVal Original_GRNo As String, _
6893 ByVal Original_UID As String, _
6894 ByVal Original_StudentName As String, _
6895 ByVal Original_FatherName As String, _
6896 ByVal Original_MotherName As String, _
6897 ByVal Original_FatherCN As String, _
6898 ByVal Original_PermanentAddress As String, _
6899 ByVal Original_TemporaryAddress As String, _
6900 ByVal Original_ContactNo As String, _
6901 ByVal Original_EmailID As String, _
6902 ByVal Original_DOB As Date, _
6903 ByVal Original_Gender As String, _
6904 ByVal Original_AdmissionDate As Date, _
6905 ByVal Original_Session As String, _
6906 ByVal Original_Caste As String, _
6907 ByVal Original_Religion As String, _
6908 ByVal Original_SectionID As Integer, _
6909 ByVal Original_Nationality As String, _
6910 ByVal Original_SchoolID As Integer, _
6911 ByVal Original_LastSchoolAttended As String, _
6912 ByVal Original_Result As String, _
6913 ByVal Original_PassPercentage As String, _
6914 ByVal Original_Status As String) As Integer
6915 If (Original_AdmissionNo Is Nothing) Then
6916 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
6917 Else
6918 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_AdmissionNo,String)
6919 End If
6920 If (Original_EnrollmentNo Is Nothing) Then
6921 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
6922 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
6923 Else
6924 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
6925 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_EnrollmentNo,String)
6926 End If
6927 If (Original_GRNo Is Nothing) Then
6928 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
6929 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
6930 Else
6931 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
6932 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GRNo,String)
6933 End If
6934 If (Original_UID Is Nothing) Then
6935 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
6936 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
6937 Else
6938 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
6939 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_UID,String)
6940 End If
6941 If (Original_StudentName Is Nothing) Then
6942 Throw New Global.System.ArgumentNullException("Original_StudentName")
6943 Else
6944 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_StudentName,String)
6945 End If
6946 If (Original_FatherName Is Nothing) Then
6947 Throw New Global.System.ArgumentNullException("Original_FatherName")
6948 Else
6949 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_FatherName,String)
6950 End If
6951 If (Original_MotherName Is Nothing) Then
6952 Throw New Global.System.ArgumentNullException("Original_MotherName")
6953 Else
6954 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_MotherName,String)
6955 End If
6956 If (Original_FatherCN Is Nothing) Then
6957 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object)
6958 Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value
6959 Else
6960 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object)
6961 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_FatherCN,String)
6962 End If
6963 If (Original_PermanentAddress Is Nothing) Then
6964 Throw New Global.System.ArgumentNullException("Original_PermanentAddress")
6965 Else
6966 Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_PermanentAddress,String)
6967 End If
6968 If (Original_TemporaryAddress Is Nothing) Then
6969 Throw New Global.System.ArgumentNullException("Original_TemporaryAddress")
6970 Else
6971 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_TemporaryAddress,String)
6972 End If
6973 If (Original_ContactNo Is Nothing) Then
6974 Throw New Global.System.ArgumentNullException("Original_ContactNo")
6975 Else
6976 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ContactNo,String)
6977 End If
6978 If (Original_EmailID Is Nothing) Then
6979 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
6980 Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
6981 Else
6982 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
6983 Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_EmailID,String)
6984 End If
6985 Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_DOB,Date)
6986 If (Original_Gender Is Nothing) Then
6987 Throw New Global.System.ArgumentNullException("Original_Gender")
6988 Else
6989 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_Gender,String)
6990 End If
6991 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_AdmissionDate,Date)
6992 If (Original_Session Is Nothing) Then
6993 Throw New Global.System.ArgumentNullException("Original_Session")
6994 Else
6995 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_Session,String)
6996 End If
6997 If (Original_Caste Is Nothing) Then
6998 Throw New Global.System.ArgumentNullException("Original_Caste")
6999 Else
7000 Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_Caste,String)
7001 End If
7002 If (Original_Religion Is Nothing) Then
7003 Throw New Global.System.ArgumentNullException("Original_Religion")
7004 Else
7005 Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_Religion,String)
7006 End If
7007 Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_SectionID,Integer)
7008 If (Original_Nationality Is Nothing) Then
7009 Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object)
7010 Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value
7011 Else
7012 Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object)
7013 Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_Nationality,String)
7014 End If
7015 Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_SchoolID,Integer)
7016 If (Original_LastSchoolAttended Is Nothing) Then
7017 Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object)
7018 Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value
7019 Else
7020 Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object)
7021 Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_LastSchoolAttended,String)
7022 End If
7023 If (Original_Result Is Nothing) Then
7024 Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object)
7025 Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value
7026 Else
7027 Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object)
7028 Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_Result,String)
7029 End If
7030 If (Original_PassPercentage Is Nothing) Then
7031 Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object)
7032 Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value
7033 Else
7034 Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object)
7035 Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_PassPercentage,String)
7036 End If
7037 If (Original_Status Is Nothing) Then
7038 Throw New Global.System.ArgumentNullException("Original_Status")
7039 Else
7040 Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_Status,String)
7041 End If
7042 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
7043 If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
7044 <> Global.System.Data.ConnectionState.Open) Then
7045 Me.Adapter.DeleteCommand.Connection.Open
7046 End If
7047 Try
7048 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
7049 Return returnValue
7050 Finally
7051 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7052 Me.Adapter.DeleteCommand.Connection.Close
7053 End If
7054 End Try
7055 End Function
7056
7057 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7058 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7059 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
7060 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
7061 Public Overloads Overridable Function Insert( _
7062 ByVal AdmissionNo As String, _
7063 ByVal EnrollmentNo As String, _
7064 ByVal GRNo As String, _
7065 ByVal UID As String, _
7066 ByVal StudentName As String, _
7067 ByVal FatherName As String, _
7068 ByVal MotherName As String, _
7069 ByVal FatherCN As String, _
7070 ByVal PermanentAddress As String, _
7071 ByVal TemporaryAddress As String, _
7072 ByVal ContactNo As String, _
7073 ByVal EmailID As String, _
7074 ByVal DOB As Date, _
7075 ByVal Gender As String, _
7076 ByVal AdmissionDate As Date, _
7077 ByVal Session As String, _
7078 ByVal Caste As String, _
7079 ByVal Religion As String, _
7080 ByVal SectionID As Integer, _
7081 ByVal Photo() As Byte, _
7082 ByVal Nationality As String, _
7083 ByVal SchoolID As Integer, _
7084 ByVal LastSchoolAttended As String, _
7085 ByVal Result As String, _
7086 ByVal PassPercentage As String, _
7087 ByVal Status As String) As Integer
7088 If (AdmissionNo Is Nothing) Then
7089 Throw New Global.System.ArgumentNullException("AdmissionNo")
7090 Else
7091 Me.Adapter.InsertCommand.Parameters(0).Value = CType(AdmissionNo,String)
7092 End If
7093 If (EnrollmentNo Is Nothing) Then
7094 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
7095 Else
7096 Me.Adapter.InsertCommand.Parameters(1).Value = CType(EnrollmentNo,String)
7097 End If
7098 If (GRNo Is Nothing) Then
7099 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
7100 Else
7101 Me.Adapter.InsertCommand.Parameters(2).Value = CType(GRNo,String)
7102 End If
7103 If (UID Is Nothing) Then
7104 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
7105 Else
7106 Me.Adapter.InsertCommand.Parameters(3).Value = CType(UID,String)
7107 End If
7108 If (StudentName Is Nothing) Then
7109 Throw New Global.System.ArgumentNullException("StudentName")
7110 Else
7111 Me.Adapter.InsertCommand.Parameters(4).Value = CType(StudentName,String)
7112 End If
7113 If (FatherName Is Nothing) Then
7114 Throw New Global.System.ArgumentNullException("FatherName")
7115 Else
7116 Me.Adapter.InsertCommand.Parameters(5).Value = CType(FatherName,String)
7117 End If
7118 If (MotherName Is Nothing) Then
7119 Throw New Global.System.ArgumentNullException("MotherName")
7120 Else
7121 Me.Adapter.InsertCommand.Parameters(6).Value = CType(MotherName,String)
7122 End If
7123 If (FatherCN Is Nothing) Then
7124 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
7125 Else
7126 Me.Adapter.InsertCommand.Parameters(7).Value = CType(FatherCN,String)
7127 End If
7128 If (PermanentAddress Is Nothing) Then
7129 Throw New Global.System.ArgumentNullException("PermanentAddress")
7130 Else
7131 Me.Adapter.InsertCommand.Parameters(8).Value = CType(PermanentAddress,String)
7132 End If
7133 If (TemporaryAddress Is Nothing) Then
7134 Throw New Global.System.ArgumentNullException("TemporaryAddress")
7135 Else
7136 Me.Adapter.InsertCommand.Parameters(9).Value = CType(TemporaryAddress,String)
7137 End If
7138 If (ContactNo Is Nothing) Then
7139 Throw New Global.System.ArgumentNullException("ContactNo")
7140 Else
7141 Me.Adapter.InsertCommand.Parameters(10).Value = CType(ContactNo,String)
7142 End If
7143 If (EmailID Is Nothing) Then
7144 Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
7145 Else
7146 Me.Adapter.InsertCommand.Parameters(11).Value = CType(EmailID,String)
7147 End If
7148 Me.Adapter.InsertCommand.Parameters(12).Value = CType(DOB,Date)
7149 If (Gender Is Nothing) Then
7150 Throw New Global.System.ArgumentNullException("Gender")
7151 Else
7152 Me.Adapter.InsertCommand.Parameters(13).Value = CType(Gender,String)
7153 End If
7154 Me.Adapter.InsertCommand.Parameters(14).Value = CType(AdmissionDate,Date)
7155 If (Session Is Nothing) Then
7156 Throw New Global.System.ArgumentNullException("Session")
7157 Else
7158 Me.Adapter.InsertCommand.Parameters(15).Value = CType(Session,String)
7159 End If
7160 If (Caste Is Nothing) Then
7161 Throw New Global.System.ArgumentNullException("Caste")
7162 Else
7163 Me.Adapter.InsertCommand.Parameters(16).Value = CType(Caste,String)
7164 End If
7165 If (Religion Is Nothing) Then
7166 Throw New Global.System.ArgumentNullException("Religion")
7167 Else
7168 Me.Adapter.InsertCommand.Parameters(17).Value = CType(Religion,String)
7169 End If
7170 Me.Adapter.InsertCommand.Parameters(18).Value = CType(SectionID,Integer)
7171 If (Photo Is Nothing) Then
7172 Throw New Global.System.ArgumentNullException("Photo")
7173 Else
7174 Me.Adapter.InsertCommand.Parameters(19).Value = CType(Photo,Byte())
7175 End If
7176 If (Nationality Is Nothing) Then
7177 Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value
7178 Else
7179 Me.Adapter.InsertCommand.Parameters(20).Value = CType(Nationality,String)
7180 End If
7181 Me.Adapter.InsertCommand.Parameters(21).Value = CType(SchoolID,Integer)
7182 If (LastSchoolAttended Is Nothing) Then
7183 Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value
7184 Else
7185 Me.Adapter.InsertCommand.Parameters(22).Value = CType(LastSchoolAttended,String)
7186 End If
7187 If (Result Is Nothing) Then
7188 Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value
7189 Else
7190 Me.Adapter.InsertCommand.Parameters(23).Value = CType(Result,String)
7191 End If
7192 If (PassPercentage Is Nothing) Then
7193 Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value
7194 Else
7195 Me.Adapter.InsertCommand.Parameters(24).Value = CType(PassPercentage,String)
7196 End If
7197 If (Status Is Nothing) Then
7198 Throw New Global.System.ArgumentNullException("Status")
7199 Else
7200 Me.Adapter.InsertCommand.Parameters(25).Value = CType(Status,String)
7201 End If
7202 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
7203 If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
7204 <> Global.System.Data.ConnectionState.Open) Then
7205 Me.Adapter.InsertCommand.Connection.Open
7206 End If
7207 Try
7208 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
7209 Return returnValue
7210 Finally
7211 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7212 Me.Adapter.InsertCommand.Connection.Close
7213 End If
7214 End Try
7215 End Function
7216
7217 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7218 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7219 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
7220 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
7221 Public Overloads Overridable Function Update( _
7222 ByVal AdmissionNo As String, _
7223 ByVal EnrollmentNo As String, _
7224 ByVal GRNo As String, _
7225 ByVal UID As String, _
7226 ByVal StudentName As String, _
7227 ByVal FatherName As String, _
7228 ByVal MotherName As String, _
7229 ByVal FatherCN As String, _
7230 ByVal PermanentAddress As String, _
7231 ByVal TemporaryAddress As String, _
7232 ByVal ContactNo As String, _
7233 ByVal EmailID As String, _
7234 ByVal DOB As Date, _
7235 ByVal Gender As String, _
7236 ByVal AdmissionDate As Date, _
7237 ByVal Session As String, _
7238 ByVal Caste As String, _
7239 ByVal Religion As String, _
7240 ByVal SectionID As Integer, _
7241 ByVal Photo() As Byte, _
7242 ByVal Nationality As String, _
7243 ByVal SchoolID As Integer, _
7244 ByVal LastSchoolAttended As String, _
7245 ByVal Result As String, _
7246 ByVal PassPercentage As String, _
7247 ByVal Status As String, _
7248 ByVal Original_AdmissionNo As String, _
7249 ByVal Original_EnrollmentNo As String, _
7250 ByVal Original_GRNo As String, _
7251 ByVal Original_UID As String, _
7252 ByVal Original_StudentName As String, _
7253 ByVal Original_FatherName As String, _
7254 ByVal Original_MotherName As String, _
7255 ByVal Original_FatherCN As String, _
7256 ByVal Original_PermanentAddress As String, _
7257 ByVal Original_TemporaryAddress As String, _
7258 ByVal Original_ContactNo As String, _
7259 ByVal Original_EmailID As String, _
7260 ByVal Original_DOB As Date, _
7261 ByVal Original_Gender As String, _
7262 ByVal Original_AdmissionDate As Date, _
7263 ByVal Original_Session As String, _
7264 ByVal Original_Caste As String, _
7265 ByVal Original_Religion As String, _
7266 ByVal Original_SectionID As Integer, _
7267 ByVal Original_Nationality As String, _
7268 ByVal Original_SchoolID As Integer, _
7269 ByVal Original_LastSchoolAttended As String, _
7270 ByVal Original_Result As String, _
7271 ByVal Original_PassPercentage As String, _
7272 ByVal Original_Status As String) As Integer
7273 If (AdmissionNo Is Nothing) Then
7274 Throw New Global.System.ArgumentNullException("AdmissionNo")
7275 Else
7276 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(AdmissionNo,String)
7277 End If
7278 If (EnrollmentNo Is Nothing) Then
7279 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
7280 Else
7281 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EnrollmentNo,String)
7282 End If
7283 If (GRNo Is Nothing) Then
7284 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
7285 Else
7286 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GRNo,String)
7287 End If
7288 If (UID Is Nothing) Then
7289 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
7290 Else
7291 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(UID,String)
7292 End If
7293 If (StudentName Is Nothing) Then
7294 Throw New Global.System.ArgumentNullException("StudentName")
7295 Else
7296 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(StudentName,String)
7297 End If
7298 If (FatherName Is Nothing) Then
7299 Throw New Global.System.ArgumentNullException("FatherName")
7300 Else
7301 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FatherName,String)
7302 End If
7303 If (MotherName Is Nothing) Then
7304 Throw New Global.System.ArgumentNullException("MotherName")
7305 Else
7306 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(MotherName,String)
7307 End If
7308 If (FatherCN Is Nothing) Then
7309 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
7310 Else
7311 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(FatherCN,String)
7312 End If
7313 If (PermanentAddress Is Nothing) Then
7314 Throw New Global.System.ArgumentNullException("PermanentAddress")
7315 Else
7316 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(PermanentAddress,String)
7317 End If
7318 If (TemporaryAddress Is Nothing) Then
7319 Throw New Global.System.ArgumentNullException("TemporaryAddress")
7320 Else
7321 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TemporaryAddress,String)
7322 End If
7323 If (ContactNo Is Nothing) Then
7324 Throw New Global.System.ArgumentNullException("ContactNo")
7325 Else
7326 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ContactNo,String)
7327 End If
7328 If (EmailID Is Nothing) Then
7329 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
7330 Else
7331 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(EmailID,String)
7332 End If
7333 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DOB,Date)
7334 If (Gender Is Nothing) Then
7335 Throw New Global.System.ArgumentNullException("Gender")
7336 Else
7337 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Gender,String)
7338 End If
7339 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(AdmissionDate,Date)
7340 If (Session Is Nothing) Then
7341 Throw New Global.System.ArgumentNullException("Session")
7342 Else
7343 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Session,String)
7344 End If
7345 If (Caste Is Nothing) Then
7346 Throw New Global.System.ArgumentNullException("Caste")
7347 Else
7348 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Caste,String)
7349 End If
7350 If (Religion Is Nothing) Then
7351 Throw New Global.System.ArgumentNullException("Religion")
7352 Else
7353 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Religion,String)
7354 End If
7355 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SectionID,Integer)
7356 If (Photo Is Nothing) Then
7357 Throw New Global.System.ArgumentNullException("Photo")
7358 Else
7359 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Photo,Byte())
7360 End If
7361 If (Nationality Is Nothing) Then
7362 Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
7363 Else
7364 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Nationality,String)
7365 End If
7366 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(SchoolID,Integer)
7367 If (LastSchoolAttended Is Nothing) Then
7368 Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
7369 Else
7370 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(LastSchoolAttended,String)
7371 End If
7372 If (Result Is Nothing) Then
7373 Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
7374 Else
7375 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Result,String)
7376 End If
7377 If (PassPercentage Is Nothing) Then
7378 Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
7379 Else
7380 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(PassPercentage,String)
7381 End If
7382 If (Status Is Nothing) Then
7383 Throw New Global.System.ArgumentNullException("Status")
7384 Else
7385 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Status,String)
7386 End If
7387 If (Original_AdmissionNo Is Nothing) Then
7388 Throw New Global.System.ArgumentNullException("Original_AdmissionNo")
7389 Else
7390 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_AdmissionNo,String)
7391 End If
7392 If (Original_EnrollmentNo Is Nothing) Then
7393 Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object)
7394 Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
7395 Else
7396 Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object)
7397 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_EnrollmentNo,String)
7398 End If
7399 If (Original_GRNo Is Nothing) Then
7400 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object)
7401 Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value
7402 Else
7403 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object)
7404 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_GRNo,String)
7405 End If
7406 If (Original_UID Is Nothing) Then
7407 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object)
7408 Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value
7409 Else
7410 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object)
7411 Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_UID,String)
7412 End If
7413 If (Original_StudentName Is Nothing) Then
7414 Throw New Global.System.ArgumentNullException("Original_StudentName")
7415 Else
7416 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_StudentName,String)
7417 End If
7418 If (Original_FatherName Is Nothing) Then
7419 Throw New Global.System.ArgumentNullException("Original_FatherName")
7420 Else
7421 Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_FatherName,String)
7422 End If
7423 If (Original_MotherName Is Nothing) Then
7424 Throw New Global.System.ArgumentNullException("Original_MotherName")
7425 Else
7426 Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_MotherName,String)
7427 End If
7428 If (Original_FatherCN Is Nothing) Then
7429 Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object)
7430 Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value
7431 Else
7432 Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object)
7433 Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_FatherCN,String)
7434 End If
7435 If (Original_PermanentAddress Is Nothing) Then
7436 Throw New Global.System.ArgumentNullException("Original_PermanentAddress")
7437 Else
7438 Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_PermanentAddress,String)
7439 End If
7440 If (Original_TemporaryAddress Is Nothing) Then
7441 Throw New Global.System.ArgumentNullException("Original_TemporaryAddress")
7442 Else
7443 Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_TemporaryAddress,String)
7444 End If
7445 If (Original_ContactNo Is Nothing) Then
7446 Throw New Global.System.ArgumentNullException("Original_ContactNo")
7447 Else
7448 Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_ContactNo,String)
7449 End If
7450 If (Original_EmailID Is Nothing) Then
7451 Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object)
7452 Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value
7453 Else
7454 Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object)
7455 Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_EmailID,String)
7456 End If
7457 Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_DOB,Date)
7458 If (Original_Gender Is Nothing) Then
7459 Throw New Global.System.ArgumentNullException("Original_Gender")
7460 Else
7461 Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_Gender,String)
7462 End If
7463 Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_AdmissionDate,Date)
7464 If (Original_Session Is Nothing) Then
7465 Throw New Global.System.ArgumentNullException("Original_Session")
7466 Else
7467 Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_Session,String)
7468 End If
7469 If (Original_Caste Is Nothing) Then
7470 Throw New Global.System.ArgumentNullException("Original_Caste")
7471 Else
7472 Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_Caste,String)
7473 End If
7474 If (Original_Religion Is Nothing) Then
7475 Throw New Global.System.ArgumentNullException("Original_Religion")
7476 Else
7477 Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_Religion,String)
7478 End If
7479 Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_SectionID,Integer)
7480 If (Original_Nationality Is Nothing) Then
7481 Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object)
7482 Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value
7483 Else
7484 Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object)
7485 Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_Nationality,String)
7486 End If
7487 Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_SchoolID,Integer)
7488 If (Original_LastSchoolAttended Is Nothing) Then
7489 Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object)
7490 Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value
7491 Else
7492 Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object)
7493 Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_LastSchoolAttended,String)
7494 End If
7495 If (Original_Result Is Nothing) Then
7496 Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object)
7497 Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value
7498 Else
7499 Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object)
7500 Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_Result,String)
7501 End If
7502 If (Original_PassPercentage Is Nothing) Then
7503 Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object)
7504 Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value
7505 Else
7506 Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object)
7507 Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_PassPercentage,String)
7508 End If
7509 If (Original_Status Is Nothing) Then
7510 Throw New Global.System.ArgumentNullException("Original_Status")
7511 Else
7512 Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_Status,String)
7513 End If
7514 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
7515 If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
7516 <> Global.System.Data.ConnectionState.Open) Then
7517 Me.Adapter.UpdateCommand.Connection.Open
7518 End If
7519 Try
7520 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
7521 Return returnValue
7522 Finally
7523 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
7524 Me.Adapter.UpdateCommand.Connection.Close
7525 End If
7526 End Try
7527 End Function
7528
7529 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7530 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7531 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
7532 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
7533 Public Overloads Overridable Function Update( _
7534 ByVal EnrollmentNo As String, _
7535 ByVal GRNo As String, _
7536 ByVal UID As String, _
7537 ByVal StudentName As String, _
7538 ByVal FatherName As String, _
7539 ByVal MotherName As String, _
7540 ByVal FatherCN As String, _
7541 ByVal PermanentAddress As String, _
7542 ByVal TemporaryAddress As String, _
7543 ByVal ContactNo As String, _
7544 ByVal EmailID As String, _
7545 ByVal DOB As Date, _
7546 ByVal Gender As String, _
7547 ByVal AdmissionDate As Date, _
7548 ByVal Session As String, _
7549 ByVal Caste As String, _
7550 ByVal Religion As String, _
7551 ByVal SectionID As Integer, _
7552 ByVal Photo() As Byte, _
7553 ByVal Nationality As String, _
7554 ByVal SchoolID As Integer, _
7555 ByVal LastSchoolAttended As String, _
7556 ByVal Result As String, _
7557 ByVal PassPercentage As String, _
7558 ByVal Status As String, _
7559 ByVal Original_AdmissionNo As String, _
7560 ByVal Original_EnrollmentNo As String, _
7561 ByVal Original_GRNo As String, _
7562 ByVal Original_UID As String, _
7563 ByVal Original_StudentName As String, _
7564 ByVal Original_FatherName As String, _
7565 ByVal Original_MotherName As String, _
7566 ByVal Original_FatherCN As String, _
7567 ByVal Original_PermanentAddress As String, _
7568 ByVal Original_TemporaryAddress As String, _
7569 ByVal Original_ContactNo As String, _
7570 ByVal Original_EmailID As String, _
7571 ByVal Original_DOB As Date, _
7572 ByVal Original_Gender As String, _
7573 ByVal Original_AdmissionDate As Date, _
7574 ByVal Original_Session As String, _
7575 ByVal Original_Caste As String, _
7576 ByVal Original_Religion As String, _
7577 ByVal Original_SectionID As Integer, _
7578 ByVal Original_Nationality As String, _
7579 ByVal Original_SchoolID As Integer, _
7580 ByVal Original_LastSchoolAttended As String, _
7581 ByVal Original_Result As String, _
7582 ByVal Original_PassPercentage As String, _
7583 ByVal Original_Status As String) As Integer
7584 Return Me.Update(Original_AdmissionNo, EnrollmentNo, GRNo, UID, StudentName, FatherName, MotherName, FatherCN, PermanentAddress, TemporaryAddress, ContactNo, EmailID, DOB, Gender, AdmissionDate, Session, Caste, Religion, SectionID, Photo, Nationality, SchoolID, LastSchoolAttended, Result, PassPercentage, Status, Original_AdmissionNo, Original_EnrollmentNo, Original_GRNo, Original_UID, Original_StudentName, Original_FatherName, Original_MotherName, Original_FatherCN, Original_PermanentAddress, Original_TemporaryAddress, Original_ContactNo, Original_EmailID, Original_DOB, Original_Gender, Original_AdmissionDate, Original_Session, Original_Caste, Original_Religion, Original_SectionID, Original_Nationality, Original_SchoolID, Original_LastSchoolAttended, Original_Result, Original_PassPercentage, Original_Status)
7585 End Function
7586 End Class
7587
7588 '''<summary>
7589 '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
7590 '''</summary>
7591 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
7592 Global.System.ComponentModel.ToolboxItem(true), _
7593 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
7594 "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
7595 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
7596 Partial Public Class TableAdapterManager
7597 Inherits Global.System.ComponentModel.Component
7598
7599 Private _updateOrder As UpdateOrderOption
7600
7601 Private _classTableAdapter As ClassTableAdapter
7602
7603 Private _courseFeeTableAdapter As CourseFeeTableAdapter
7604
7605 Private _courseFeePaymentTableAdapter As CourseFeePaymentTableAdapter
7606
7607 Private _schoolInfoTableAdapter As SchoolInfoTableAdapter
7608
7609 Private _studentTableAdapter As StudentTableAdapter
7610
7611 Private _backupDataSetBeforeUpdate As Boolean
7612
7613 Private _connection As Global.System.Data.IDbConnection
7614
7615 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7616 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7617 Public Property UpdateOrder() As UpdateOrderOption
7618 Get
7619 Return Me._updateOrder
7620 End Get
7621 Set
7622 Me._updateOrder = value
7623 End Set
7624 End Property
7625
7626 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7627 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7628 Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
7629 "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
7630 "a", "System.Drawing.Design.UITypeEditor")> _
7631 Public Property ClassTableAdapter() As ClassTableAdapter
7632 Get
7633 Return Me._classTableAdapter
7634 End Get
7635 Set
7636 Me._classTableAdapter = value
7637 End Set
7638 End Property
7639
7640 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7641 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7642 Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
7643 "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
7644 "a", "System.Drawing.Design.UITypeEditor")> _
7645 Public Property CourseFeeTableAdapter() As CourseFeeTableAdapter
7646 Get
7647 Return Me._courseFeeTableAdapter
7648 End Get
7649 Set
7650 Me._courseFeeTableAdapter = value
7651 End Set
7652 End Property
7653
7654 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7655 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7656 Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
7657 "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
7658 "a", "System.Drawing.Design.UITypeEditor")> _
7659 Public Property CourseFeePaymentTableAdapter() As CourseFeePaymentTableAdapter
7660 Get
7661 Return Me._courseFeePaymentTableAdapter
7662 End Get
7663 Set
7664 Me._courseFeePaymentTableAdapter = value
7665 End Set
7666 End Property
7667
7668 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7669 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7670 Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
7671 "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
7672 "a", "System.Drawing.Design.UITypeEditor")> _
7673 Public Property SchoolInfoTableAdapter() As SchoolInfoTableAdapter
7674 Get
7675 Return Me._schoolInfoTableAdapter
7676 End Get
7677 Set
7678 Me._schoolInfoTableAdapter = value
7679 End Set
7680 End Property
7681
7682 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7683 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7684 Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
7685 "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
7686 "a", "System.Drawing.Design.UITypeEditor")> _
7687 Public Property StudentTableAdapter() As StudentTableAdapter
7688 Get
7689 Return Me._studentTableAdapter
7690 End Get
7691 Set
7692 Me._studentTableAdapter = value
7693 End Set
7694 End Property
7695
7696 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7697 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7698 Public Property BackupDataSetBeforeUpdate() As Boolean
7699 Get
7700 Return Me._backupDataSetBeforeUpdate
7701 End Get
7702 Set
7703 Me._backupDataSetBeforeUpdate = value
7704 End Set
7705 End Property
7706
7707 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7708 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7709 Global.System.ComponentModel.Browsable(false)> _
7710 Public Property Connection() As Global.System.Data.IDbConnection
7711 Get
7712 If (Not (Me._connection) Is Nothing) Then
7713 Return Me._connection
7714 End If
7715 If ((Not (Me._classTableAdapter) Is Nothing) _
7716 AndAlso (Not (Me._classTableAdapter.Connection) Is Nothing)) Then
7717 Return Me._classTableAdapter.Connection
7718 End If
7719 If ((Not (Me._courseFeeTableAdapter) Is Nothing) _
7720 AndAlso (Not (Me._courseFeeTableAdapter.Connection) Is Nothing)) Then
7721 Return Me._courseFeeTableAdapter.Connection
7722 End If
7723 If ((Not (Me._courseFeePaymentTableAdapter) Is Nothing) _
7724 AndAlso (Not (Me._courseFeePaymentTableAdapter.Connection) Is Nothing)) Then
7725 Return Me._courseFeePaymentTableAdapter.Connection
7726 End If
7727 If ((Not (Me._schoolInfoTableAdapter) Is Nothing) _
7728 AndAlso (Not (Me._schoolInfoTableAdapter.Connection) Is Nothing)) Then
7729 Return Me._schoolInfoTableAdapter.Connection
7730 End If
7731 If ((Not (Me._studentTableAdapter) Is Nothing) _
7732 AndAlso (Not (Me._studentTableAdapter.Connection) Is Nothing)) Then
7733 Return Me._studentTableAdapter.Connection
7734 End If
7735 Return Nothing
7736 End Get
7737 Set
7738 Me._connection = value
7739 End Set
7740 End Property
7741
7742 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7743 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7744 Global.System.ComponentModel.Browsable(false)> _
7745 Public ReadOnly Property TableAdapterInstanceCount() As Integer
7746 Get
7747 Dim count As Integer = 0
7748 If (Not (Me._classTableAdapter) Is Nothing) Then
7749 count = (count + 1)
7750 End If
7751 If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
7752 count = (count + 1)
7753 End If
7754 If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
7755 count = (count + 1)
7756 End If
7757 If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
7758 count = (count + 1)
7759 End If
7760 If (Not (Me._studentTableAdapter) Is Nothing) Then
7761 count = (count + 1)
7762 End If
7763 Return count
7764 End Get
7765 End Property
7766
7767 '''<summary>
7768 '''Update rows in top-down order.
7769 '''</summary>
7770 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7771 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7772 Private Function UpdateUpdatedRows(ByVal dataSet As Class_DBDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
7773 Dim result As Integer = 0
7774 If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
7775 Dim updatedRows() As Global.System.Data.DataRow = dataSet.SchoolInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
7776 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
7777 If ((Not (updatedRows) Is Nothing) _
7778 AndAlso (0 < updatedRows.Length)) Then
7779 result = (result + Me._schoolInfoTableAdapter.Update(updatedRows))
7780 allChangedRows.AddRange(updatedRows)
7781 End If
7782 End If
7783 If (Not (Me._classTableAdapter) Is Nothing) Then
7784 Dim updatedRows() As Global.System.Data.DataRow = dataSet._Class.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
7785 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
7786 If ((Not (updatedRows) Is Nothing) _
7787 AndAlso (0 < updatedRows.Length)) Then
7788 result = (result + Me._classTableAdapter.Update(updatedRows))
7789 allChangedRows.AddRange(updatedRows)
7790 End If
7791 End If
7792 If (Not (Me._studentTableAdapter) Is Nothing) Then
7793 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
7794 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
7795 If ((Not (updatedRows) Is Nothing) _
7796 AndAlso (0 < updatedRows.Length)) Then
7797 result = (result + Me._studentTableAdapter.Update(updatedRows))
7798 allChangedRows.AddRange(updatedRows)
7799 End If
7800 End If
7801 If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
7802 Dim updatedRows() As Global.System.Data.DataRow = dataSet.CourseFee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
7803 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
7804 If ((Not (updatedRows) Is Nothing) _
7805 AndAlso (0 < updatedRows.Length)) Then
7806 result = (result + Me._courseFeeTableAdapter.Update(updatedRows))
7807 allChangedRows.AddRange(updatedRows)
7808 End If
7809 End If
7810 If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
7811 Dim updatedRows() As Global.System.Data.DataRow = dataSet.CourseFeePayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
7812 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
7813 If ((Not (updatedRows) Is Nothing) _
7814 AndAlso (0 < updatedRows.Length)) Then
7815 result = (result + Me._courseFeePaymentTableAdapter.Update(updatedRows))
7816 allChangedRows.AddRange(updatedRows)
7817 End If
7818 End If
7819 Return result
7820 End Function
7821
7822 '''<summary>
7823 '''Insert rows in top-down order.
7824 '''</summary>
7825 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7826 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7827 Private Function UpdateInsertedRows(ByVal dataSet As Class_DBDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
7828 Dim result As Integer = 0
7829 If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
7830 Dim addedRows() As Global.System.Data.DataRow = dataSet.SchoolInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
7831 If ((Not (addedRows) Is Nothing) _
7832 AndAlso (0 < addedRows.Length)) Then
7833 result = (result + Me._schoolInfoTableAdapter.Update(addedRows))
7834 allAddedRows.AddRange(addedRows)
7835 End If
7836 End If
7837 If (Not (Me._classTableAdapter) Is Nothing) Then
7838 Dim addedRows() As Global.System.Data.DataRow = dataSet._Class.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
7839 If ((Not (addedRows) Is Nothing) _
7840 AndAlso (0 < addedRows.Length)) Then
7841 result = (result + Me._classTableAdapter.Update(addedRows))
7842 allAddedRows.AddRange(addedRows)
7843 End If
7844 End If
7845 If (Not (Me._studentTableAdapter) Is Nothing) Then
7846 Dim addedRows() As Global.System.Data.DataRow = dataSet.Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
7847 If ((Not (addedRows) Is Nothing) _
7848 AndAlso (0 < addedRows.Length)) Then
7849 result = (result + Me._studentTableAdapter.Update(addedRows))
7850 allAddedRows.AddRange(addedRows)
7851 End If
7852 End If
7853 If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
7854 Dim addedRows() As Global.System.Data.DataRow = dataSet.CourseFee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
7855 If ((Not (addedRows) Is Nothing) _
7856 AndAlso (0 < addedRows.Length)) Then
7857 result = (result + Me._courseFeeTableAdapter.Update(addedRows))
7858 allAddedRows.AddRange(addedRows)
7859 End If
7860 End If
7861 If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
7862 Dim addedRows() As Global.System.Data.DataRow = dataSet.CourseFeePayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
7863 If ((Not (addedRows) Is Nothing) _
7864 AndAlso (0 < addedRows.Length)) Then
7865 result = (result + Me._courseFeePaymentTableAdapter.Update(addedRows))
7866 allAddedRows.AddRange(addedRows)
7867 End If
7868 End If
7869 Return result
7870 End Function
7871
7872 '''<summary>
7873 '''Delete rows in bottom-up order.
7874 '''</summary>
7875 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7876 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7877 Private Function UpdateDeletedRows(ByVal dataSet As Class_DBDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
7878 Dim result As Integer = 0
7879 If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
7880 Dim deletedRows() As Global.System.Data.DataRow = dataSet.CourseFeePayment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
7881 If ((Not (deletedRows) Is Nothing) _
7882 AndAlso (0 < deletedRows.Length)) Then
7883 result = (result + Me._courseFeePaymentTableAdapter.Update(deletedRows))
7884 allChangedRows.AddRange(deletedRows)
7885 End If
7886 End If
7887 If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
7888 Dim deletedRows() As Global.System.Data.DataRow = dataSet.CourseFee.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
7889 If ((Not (deletedRows) Is Nothing) _
7890 AndAlso (0 < deletedRows.Length)) Then
7891 result = (result + Me._courseFeeTableAdapter.Update(deletedRows))
7892 allChangedRows.AddRange(deletedRows)
7893 End If
7894 End If
7895 If (Not (Me._studentTableAdapter) Is Nothing) Then
7896 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
7897 If ((Not (deletedRows) Is Nothing) _
7898 AndAlso (0 < deletedRows.Length)) Then
7899 result = (result + Me._studentTableAdapter.Update(deletedRows))
7900 allChangedRows.AddRange(deletedRows)
7901 End If
7902 End If
7903 If (Not (Me._classTableAdapter) Is Nothing) Then
7904 Dim deletedRows() As Global.System.Data.DataRow = dataSet._Class.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
7905 If ((Not (deletedRows) Is Nothing) _
7906 AndAlso (0 < deletedRows.Length)) Then
7907 result = (result + Me._classTableAdapter.Update(deletedRows))
7908 allChangedRows.AddRange(deletedRows)
7909 End If
7910 End If
7911 If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
7912 Dim deletedRows() As Global.System.Data.DataRow = dataSet.SchoolInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
7913 If ((Not (deletedRows) Is Nothing) _
7914 AndAlso (0 < deletedRows.Length)) Then
7915 result = (result + Me._schoolInfoTableAdapter.Update(deletedRows))
7916 allChangedRows.AddRange(deletedRows)
7917 End If
7918 End If
7919 Return result
7920 End Function
7921
7922 '''<summary>
7923 '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
7924 '''</summary>
7925 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7926 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7927 Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
7928 If ((updatedRows Is Nothing) _
7929 OrElse (updatedRows.Length < 1)) Then
7930 Return updatedRows
7931 End If
7932 If ((allAddedRows Is Nothing) _
7933 OrElse (allAddedRows.Count < 1)) Then
7934 Return updatedRows
7935 End If
7936 Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
7937 Dim i As Integer = 0
7938 Do While (i < updatedRows.Length)
7939 Dim row As Global.System.Data.DataRow = updatedRows(i)
7940 If (allAddedRows.Contains(row) = false) Then
7941 realUpdatedRows.Add(row)
7942 End If
7943 i = (i + 1)
7944 Loop
7945 Return realUpdatedRows.ToArray
7946 End Function
7947
7948 '''<summary>
7949 '''Update all changes to the dataset.
7950 '''</summary>
7951 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7952 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7953 Public Overridable Function UpdateAll(ByVal dataSet As Class_DBDataSet) As Integer
7954 If (dataSet Is Nothing) Then
7955 Throw New Global.System.ArgumentNullException("dataSet")
7956 End If
7957 If (dataSet.HasChanges = false) Then
7958 Return 0
7959 End If
7960 If ((Not (Me._classTableAdapter) Is Nothing) _
7961 AndAlso (Me.MatchTableAdapterConnection(Me._classTableAdapter.Connection) = false)) Then
7962 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
7963 "tring.")
7964 End If
7965 If ((Not (Me._courseFeeTableAdapter) Is Nothing) _
7966 AndAlso (Me.MatchTableAdapterConnection(Me._courseFeeTableAdapter.Connection) = false)) Then
7967 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
7968 "tring.")
7969 End If
7970 If ((Not (Me._courseFeePaymentTableAdapter) Is Nothing) _
7971 AndAlso (Me.MatchTableAdapterConnection(Me._courseFeePaymentTableAdapter.Connection) = false)) Then
7972 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
7973 "tring.")
7974 End If
7975 If ((Not (Me._schoolInfoTableAdapter) Is Nothing) _
7976 AndAlso (Me.MatchTableAdapterConnection(Me._schoolInfoTableAdapter.Connection) = false)) Then
7977 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
7978 "tring.")
7979 End If
7980 If ((Not (Me._studentTableAdapter) Is Nothing) _
7981 AndAlso (Me.MatchTableAdapterConnection(Me._studentTableAdapter.Connection) = false)) Then
7982 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
7983 "tring.")
7984 End If
7985 Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
7986 If (workConnection Is Nothing) Then
7987 Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _
7988 "ger TableAdapter property to a valid TableAdapter instance.")
7989 End If
7990 Dim workConnOpened As Boolean = false
7991 If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
7992 = Global.System.Data.ConnectionState.Broken) Then
7993 workConnection.Close
7994 End If
7995 If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
7996 workConnection.Open
7997 workConnOpened = true
7998 End If
7999 Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
8000 If (workTransaction Is Nothing) Then
8001 Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _
8002 "ctions or the current state is not allowing the transaction to begin.")
8003 End If
8004 Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
8005 Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
8006 Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
8007 Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
8008 Dim result As Integer = 0
8009 Dim backupDataSet As Global.System.Data.DataSet = Nothing
8010 If Me.BackupDataSetBeforeUpdate Then
8011 backupDataSet = New Global.System.Data.DataSet()
8012 backupDataSet.Merge(dataSet)
8013 End If
8014 Try
8015 '---- Prepare for update -----------
8016 '
8017 If (Not (Me._classTableAdapter) Is Nothing) Then
8018 revertConnections.Add(Me._classTableAdapter, Me._classTableAdapter.Connection)
8019 Me._classTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
8020 Me._classTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
8021 If Me._classTableAdapter.Adapter.AcceptChangesDuringUpdate Then
8022 Me._classTableAdapter.Adapter.AcceptChangesDuringUpdate = false
8023 adaptersWithAcceptChangesDuringUpdate.Add(Me._classTableAdapter.Adapter)
8024 End If
8025 End If
8026 If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
8027 revertConnections.Add(Me._courseFeeTableAdapter, Me._courseFeeTableAdapter.Connection)
8028 Me._courseFeeTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
8029 Me._courseFeeTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
8030 If Me._courseFeeTableAdapter.Adapter.AcceptChangesDuringUpdate Then
8031 Me._courseFeeTableAdapter.Adapter.AcceptChangesDuringUpdate = false
8032 adaptersWithAcceptChangesDuringUpdate.Add(Me._courseFeeTableAdapter.Adapter)
8033 End If
8034 End If
8035 If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
8036 revertConnections.Add(Me._courseFeePaymentTableAdapter, Me._courseFeePaymentTableAdapter.Connection)
8037 Me._courseFeePaymentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
8038 Me._courseFeePaymentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
8039 If Me._courseFeePaymentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
8040 Me._courseFeePaymentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
8041 adaptersWithAcceptChangesDuringUpdate.Add(Me._courseFeePaymentTableAdapter.Adapter)
8042 End If
8043 End If
8044 If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
8045 revertConnections.Add(Me._schoolInfoTableAdapter, Me._schoolInfoTableAdapter.Connection)
8046 Me._schoolInfoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
8047 Me._schoolInfoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
8048 If Me._schoolInfoTableAdapter.Adapter.AcceptChangesDuringUpdate Then
8049 Me._schoolInfoTableAdapter.Adapter.AcceptChangesDuringUpdate = false
8050 adaptersWithAcceptChangesDuringUpdate.Add(Me._schoolInfoTableAdapter.Adapter)
8051 End If
8052 End If
8053 If (Not (Me._studentTableAdapter) Is Nothing) Then
8054 revertConnections.Add(Me._studentTableAdapter, Me._studentTableAdapter.Connection)
8055 Me._studentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
8056 Me._studentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
8057 If Me._studentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
8058 Me._studentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
8059 adaptersWithAcceptChangesDuringUpdate.Add(Me._studentTableAdapter.Adapter)
8060 End If
8061 End If
8062 '
8063 '---- Perform updates -----------
8064 '
8065 If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
8066 result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
8067 result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
8068 Else
8069 result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
8070 result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
8071 End If
8072 result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
8073 '
8074 '---- Commit updates -----------
8075 '
8076 workTransaction.Commit
8077 If (0 < allAddedRows.Count) Then
8078 Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
8079 allAddedRows.CopyTo(rows)
8080 Dim i As Integer = 0
8081 Do While (i < rows.Length)
8082 Dim row As Global.System.Data.DataRow = rows(i)
8083 row.AcceptChanges
8084 i = (i + 1)
8085 Loop
8086 End If
8087 If (0 < allChangedRows.Count) Then
8088 Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
8089 allChangedRows.CopyTo(rows)
8090 Dim i As Integer = 0
8091 Do While (i < rows.Length)
8092 Dim row As Global.System.Data.DataRow = rows(i)
8093 row.AcceptChanges
8094 i = (i + 1)
8095 Loop
8096 End If
8097 Catch ex As Global.System.Exception
8098 workTransaction.Rollback
8099 '---- Restore the dataset -----------
8100 If Me.BackupDataSetBeforeUpdate Then
8101 Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
8102 dataSet.Clear
8103 dataSet.Merge(backupDataSet)
8104 Else
8105 If (0 < allAddedRows.Count) Then
8106 Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
8107 allAddedRows.CopyTo(rows)
8108 Dim i As Integer = 0
8109 Do While (i < rows.Length)
8110 Dim row As Global.System.Data.DataRow = rows(i)
8111 row.AcceptChanges
8112 row.SetAdded
8113 i = (i + 1)
8114 Loop
8115 End If
8116 End If
8117 Throw ex
8118 Finally
8119 If workConnOpened Then
8120 workConnection.Close
8121 End If
8122 If (Not (Me._classTableAdapter) Is Nothing) Then
8123 Me._classTableAdapter.Connection = CType(revertConnections(Me._classTableAdapter),Global.System.Data.SqlClient.SqlConnection)
8124 Me._classTableAdapter.Transaction = Nothing
8125 End If
8126 If (Not (Me._courseFeeTableAdapter) Is Nothing) Then
8127 Me._courseFeeTableAdapter.Connection = CType(revertConnections(Me._courseFeeTableAdapter),Global.System.Data.SqlClient.SqlConnection)
8128 Me._courseFeeTableAdapter.Transaction = Nothing
8129 End If
8130 If (Not (Me._courseFeePaymentTableAdapter) Is Nothing) Then
8131 Me._courseFeePaymentTableAdapter.Connection = CType(revertConnections(Me._courseFeePaymentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
8132 Me._courseFeePaymentTableAdapter.Transaction = Nothing
8133 End If
8134 If (Not (Me._schoolInfoTableAdapter) Is Nothing) Then
8135 Me._schoolInfoTableAdapter.Connection = CType(revertConnections(Me._schoolInfoTableAdapter),Global.System.Data.SqlClient.SqlConnection)
8136 Me._schoolInfoTableAdapter.Transaction = Nothing
8137 End If
8138 If (Not (Me._studentTableAdapter) Is Nothing) Then
8139 Me._studentTableAdapter.Connection = CType(revertConnections(Me._studentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
8140 Me._studentTableAdapter.Transaction = Nothing
8141 End If
8142 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
8143 Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
8144 adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
8145 Dim i As Integer = 0
8146 Do While (i < adapters.Length)
8147 Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
8148 adapter.AcceptChangesDuringUpdate = true
8149 i = (i + 1)
8150 Loop
8151 End If
8152 End Try
8153 Return result
8154 End Function
8155
8156 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8157 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8158 Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
8159 Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
8160 End Sub
8161
8162 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8163 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8164 Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
8165 If (Not (Me._connection) Is Nothing) Then
8166 Return true
8167 End If
8168 If ((Me.Connection Is Nothing) _
8169 OrElse (inputConnection Is Nothing)) Then
8170 Return true
8171 End If
8172 If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
8173 Return true
8174 End If
8175 Return false
8176 End Function
8177
8178 '''<summary>
8179 '''Update Order Option
8180 '''</summary>
8181 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8182 Public Enum UpdateOrderOption
8183
8184 InsertUpdateDelete = 0
8185
8186 UpdateInsertDelete = 1
8187 End Enum
8188
8189 '''<summary>
8190 '''Used to sort self-referenced table's rows
8191 '''</summary>
8192 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8193 Private Class SelfReferenceComparer
8194 Inherits Object
8195 Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
8196
8197 Private _relation As Global.System.Data.DataRelation
8198
8199 Private _childFirst As Integer
8200
8201 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8202 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8203 Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
8204 MyBase.New
8205 Me._relation = relation
8206 If childFirst Then
8207 Me._childFirst = -1
8208 Else
8209 Me._childFirst = 1
8210 End If
8211 End Sub
8212
8213 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8214 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8215 Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
8216 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
8217 Dim root As Global.System.Data.DataRow = row
8218 distance = 0
8219
8220 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
8221 traversedRows(row) = row
8222
8223 Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
8224
8225 Do While ((Not (parent) Is Nothing) _
8226 AndAlso (traversedRows.ContainsKey(parent) = false))
8227 distance = (distance + 1)
8228 root = parent
8229 traversedRows(parent) = parent
8230 parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
8231
8232 Loop
8233
8234 If (distance = 0) Then
8235 traversedRows.Clear
8236 traversedRows(row) = row
8237 parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
8238
8239 Do While ((Not (parent) Is Nothing) _
8240 AndAlso (traversedRows.ContainsKey(parent) = false))
8241 distance = (distance + 1)
8242 root = parent
8243 traversedRows(parent) = parent
8244 parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
8245
8246 Loop
8247 End If
8248
8249 Return root
8250 End Function
8251
8252 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8253 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8254 Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
8255 If Object.ReferenceEquals(row1, row2) Then
8256 Return 0
8257 End If
8258 If (row1 Is Nothing) Then
8259 Return -1
8260 End If
8261 If (row2 Is Nothing) Then
8262 Return 1
8263 End If
8264
8265 Dim distance1 As Integer = 0
8266 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
8267
8268 Dim distance2 As Integer = 0
8269 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
8270
8271 If Object.ReferenceEquals(root1, root2) Then
8272 Return (Me._childFirst * distance1.CompareTo(distance2))
8273 Else
8274 Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
8275 AndAlso (Not (root2.Table) Is Nothing)))
8276 If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
8277 Return -1
8278 Else
8279 Return 1
8280 End If
8281 End If
8282 End Function
8283 End Class
8284 End Class
8285 End Namespace